--- a/ClassChange.st	Sun Apr 14 20:24:14 2013 +0200
+++ b/ClassChange.st	Mon Apr 15 10:42:41 2013 +0200
@@ -390,7 +390,7 @@
 cutMyNameSpaceOf:aString
     |ns|
 
-    aString isNil ifTrue:[ ^ aString ].
+    aString isNil ifTrue:[ ^ nil ].
     (ns := self nameSpaceOverride) isNil ifTrue:[ ^ aString ].
     (aString startsWith:(ns , '.')) ifTrue:[ ^ self cutNameSpaceOf:aString ].
     (aString startsWith:(ns , '::')) ifTrue:[ ^ self cutNameSpaceOf:aString ].
@@ -445,10 +445,10 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.70 2013-04-02 19:21:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.71 2013-04-15 08:42:41 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.70 2013-04-02 19:21:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.71 2013-04-15 08:42:41 stefan Exp $'
 ! !