--- a/Class.st	Wed Mar 05 22:53:19 2014 +0100
+++ b/Class.st	Wed Mar 05 22:57:55 2014 +0100
@@ -493,7 +493,6 @@
 ! !
 
 
-
 !Class methodsFor:'Compatibility-Dolphin'!
 
 defaultCategoryForDolphinClasses
@@ -695,7 +694,6 @@
     "Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 
-
 !Class methodsFor:'accessing'!
 
 addClassVarName:aString
@@ -3620,7 +3618,7 @@
 setAttribute:key to:aValue
     "{ Pragma: +optSpace }"
 
-    self classAttributes perform:(key , ':') asSymbol with:aValue
+    self classAttributes perform:key asMutator with:aValue
 !
 
 setName:aString
@@ -5704,11 +5702,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.637 2014-02-17 01:34:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.638 2014-03-05 21:57:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.637 2014-02-17 01:34:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.638 2014-03-05 21:57:55 cg Exp $'
 !
 
 version_SVN