ClassChange.st
changeset 3687 eb6c93f52cc5
parent 3502 5793bda4b06b
child 3838 474d8ec95b33
child 3876 d3b9c541ac41
--- a/ClassChange.st	Sun Dec 21 17:03:32 2014 +0100
+++ b/ClassChange.st	Mon Dec 22 01:19:46 2014 +0100
@@ -369,6 +369,7 @@
 
     ns := nameSpaceOverride.
     ns isNil ifTrue:[^ nil].
+    ns isString ifTrue:[ ^ ns ].
     ^ ns name
 
     "Created: / 07-09-2011 / 20:45:43 / cg"
@@ -530,11 +531,11 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.76 2014-02-19 13:05:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.77 2014-12-22 00:19:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.76 2014-02-19 13:05:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.77 2014-12-22 00:19:46 cg Exp $'
 !
 
 version_HG
@@ -543,6 +544,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassChange.st,v 1.76 2014-02-19 13:05:48 cg Exp $'
+    ^ '$Id: ClassChange.st,v 1.77 2014-12-22 00:19:46 cg Exp $'
 ! !