--- a/ClassCategoryChange.st	Sun Mar 20 13:38:45 2016 +0100
+++ b/ClassCategoryChange.st	Sun Mar 20 13:39:01 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 ClassChange subclass:#ClassCategoryChange
 	instanceVariableNames:'category'
 	classVariableNames:''
@@ -85,14 +87,18 @@
     "append a user printed representation of the receiver to aStream.
      The format is suitable for a human - not meant to be read back."
 
-    aStream nextPutAll:className; nextPutAll:' category:'
+    aStream 
+        nextPutAll:className; 
+        nextPutAll:' category:';
+        nextPutAll:(category storeString)
 !
 
 printWithoutClassNameOn:aStream
     (className endsWith:' class') ifTrue:[
         aStream nextPutAll:'class '
     ].
-    aStream nextPutAll:'category:'
+    aStream nextPutAll:'category:'.
+    aStream nextPutAll:category storeString
 ! !
 
 !ClassCategoryChange methodsFor:'testing'!
@@ -112,6 +118,6 @@
 !ClassCategoryChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCategoryChange.st,v 1.6 2014-02-19 13:05:23 cg Exp $'
+    ^ '$Header$'
 ! !