--- a/extensions.st	Sun Apr 17 14:52:04 2016 +0200
+++ b/extensions.st	Mon Apr 18 01:11:58 2016 +0200
@@ -32,16 +32,18 @@
 !ApplicationModel methodsFor:'debugging'!
 
 inspectorExtraAttributes
-    |atts|
+    |atts dict|
 
     atts := super inspectorExtraAttributes.
     builder notNil ifTrue:[
-        builder namedComponents keysAndValuesDo:[:eachName :eachWidget |
-            atts add:('-[: ',eachName,' :]') -> [ builder namedComponents at:eachName ].
+        (dict := builder namedComponents) notNil ifTrue:[
+            dict keysAndValuesDo:[:eachName :eachWidget |
+                atts add:('-[: ',eachName,' :]') -> [ dict at:eachName ].
+            ].
         ].
-        builder bindings notNil ifTrue:[
-            builder bindings keysAndValuesDo:[:eachName :eachAspect |
-                atts add:('-~> ',eachName) -> [ builder bindings at:eachName ].
+        (dict := builder bindings) notNil ifTrue:[
+            dict keysAndValuesDo:[:eachName :eachAspect |
+                atts add:('-~> ',eachName) -> [ dict at:eachName ].
             ].
         ].
     ].