--- a/Structure.st	Mon Aug 09 16:42:39 1999 +0200
+++ b/Structure.st	Wed Aug 18 17:54:16 1999 +0200
@@ -125,6 +125,7 @@
 
         DummyClass := Behavior shallowCopy.
         DummyClass flags:(Behavior flagBehavior bitOr:Behavior flagPointers).
+        DummyClass setName:'DummyClass'.
 
         ReadAccessMethods := (1 to:50) 
                                 collect:[:i | |m|
@@ -1327,6 +1328,10 @@
          ^ names
     ].
 
+    (sel == #instSize) ifTrue:[
+         ^ instSize
+    ].
+
     'Structure [warning]: return nil for: ' print.
     aMessage print.
     ' args ' print. args printCR.
@@ -1340,6 +1345,6 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.7 1998-03-04 17:46:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.8 1999-08-18 15:54:16 cg Exp $'
 ! !
 Structure initialize!