--- a/extensions.st	Mon Sep 18 21:53:38 2006 +0200
+++ b/extensions.st	Mon Sep 18 22:00:59 2006 +0200
@@ -90,7 +90,7 @@
     ^ Dictionary new
         add:'-code' -> [ String streamContents:[:s | self decompileTo:s] ];
         add:'-source' -> [ self source ];
-        declareAllFrom:(super inspectorExtraAttributes);
+        declareAllNewFrom:(super inspectorExtraAttributes ? #());
         yourself
 
     "
@@ -283,7 +283,7 @@
 inspectorExtraAttributes
     ^ Dictionary new
         add:'-text' -> [ self ];
-        declareAllFrom:(super inspectorExtraAttributes);
+        declareAllNewFrom:(super inspectorExtraAttributes ? #());
         yourself
 
     "