--- a/ClassDefinitionChange.st	Thu Oct 30 16:55:57 2008 +0100
+++ b/ClassDefinitionChange.st	Fri Oct 31 14:23:09 2008 +0100
@@ -157,7 +157,7 @@
     (nsName := self nameSpaceName) notNil ifTrue:[
         ^ '"{ NameSpace: ' , nsName , ' }"' , 
           Character cr, Character cr , 
-          src
+          src string
     ].
     ^ src
 !
@@ -437,5 +437,5 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.48 2008-07-04 15:43:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.49 2008-10-31 13:23:09 cg Exp $'
 ! !