--- a/SetInspectorView.st	Mon Oct 09 12:48:45 2006 +0200
+++ b/SetInspectorView.st	Mon Oct 09 12:48:55 2006 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libtool' }"
 
 InspectorView subclass:#SetInspectorView
@@ -98,9 +96,12 @@
 !
 
 derivedFields
-    ^ (Array with:('size' -> object size)) , super derivedFields
+    ^ Dictionary new
+        declareAllNewFrom:(super derivedFields ? #());
+        add:('-size' -> [ object size ]);
+        yourself
 
-    "Modified: / 22-08-2006 / 12:15:16 / cg"
+    "Modified: / 09-10-2006 / 12:27:21 / cg"
 !
 
 indexList 
@@ -190,5 +191,5 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.23 2006-08-22 10:15:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.24 2006-10-09 10:48:55 cg Exp $'
 ! !