--- a/Structure.st	Fri Sep 03 11:55:49 1999 +0200
+++ b/Structure.st	Fri Sep 03 17:36:50 1999 +0200
@@ -125,7 +125,7 @@
 
         DummyClass := Behavior shallowCopy.
         DummyClass flags:(Behavior flagBehavior bitOr:Behavior flagPointers).
-        DummyClass setName:'DummyClass'.
+        DummyClass setName:#DummyClass.
 
         ReadAccessMethods := (1 to:50) 
                                 collect:[:i | |m|
@@ -1353,6 +1353,6 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.9 1999-08-18 16:26:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.10 1999-09-03 15:36:50 cg Exp $'
 ! !
 Structure initialize!