--- a/Structure.st	Wed Mar 05 23:12:46 2014 +0100
+++ b/Structure.st	Wed Mar 05 23:14:41 2014 +0100
@@ -142,7 +142,7 @@
                                 ].
         WriteAccessMethods := (1 to:50)
                                 collect:[:i | |m|
-                                            m := self compiledMethodAt:('i', i printString , ':') asSymbol.
+                                            m := self compiledMethodAt:('i', i printString) asMutator.
                                             (m notNil and:[m isLazyMethod]) ifTrue:[m makeRealMethod].
                                             m
                                 ].
@@ -211,7 +211,7 @@
     nInsts := names size.
 
     sels := names collect:[:nm | nm asSymbol].
-    sels := sels , (names collect:[:nm | (nm , ':') asSymbol]).
+    sels := sels , (names collect:[:nm | nm asMutator]).
     sels := sels , OtherSelectors.
 
     mthds := ReadAccessMethods copyTo:nInsts.
@@ -1436,11 +1436,12 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.25 2010-04-18 13:12:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.26 2014-03-05 22:14:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.25 2010-04-18 13:12:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.26 2014-03-05 22:14:41 cg Exp $'
 ! !
 
+
 Structure initialize!