--- a/Archiver.st	Wed Mar 05 16:13:46 2014 +0100
+++ b/Archiver.st	Wed Mar 05 22:55:18 2014 +0100
@@ -685,7 +685,7 @@
         itemWordCount := colDescr second.
         itemFieldSelector := colDescr first.
         itemFieldSelector notNil ifTrue:[
-            itemWriter := (itemFieldSelector , ':') asSymbol.
+            itemWriter := itemFieldSelector asMutator.
         ].
         itemStream := WriteStream on:''.
         itemWordCount == #rest ifTrue:[
@@ -1423,11 +1423,11 @@
 !Archiver class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.45 2014-02-26 15:12:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.46 2014-03-05 21:55:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.45 2014-02-26 15:12:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.46 2014-03-05 21:55:18 cg Exp $'
 ! !