--- a/ClassCategoryChange.st	Thu Jan 23 17:11:38 2014 +0100
+++ b/ClassCategoryChange.st	Wed Feb 05 11:01:15 2014 +0100
@@ -47,7 +47,7 @@
 !
 
 category:aCategory
-    ^ category := aCategory
+    category := aCategory
 !
 
 className:clsName category:aCategoryString
@@ -112,5 +112,6 @@
 !ClassCategoryChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCategoryChange.st,v 1.4 2011-11-25 16:45:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCategoryChange.st,v 1.5 2014-02-05 10:01:15 cg Exp $'
 ! !
+