--- a/ClassDescription.st	Thu Jul 25 11:37:35 2013 +0200
+++ b/ClassDescription.st	Thu Jul 25 16:14:10 2013 +0200
@@ -3329,10 +3329,15 @@
 
     self isPrivate ifTrue:[^ self topOwningClass topNameSpace].
     ns := self nameSpace.
-    ns isNameSpace ifFalse:[
-        "detect the problem, that a class has the same name as a namsSpace"
-        self halt:'Not a namspace'.
+    ns isNil ifTrue:[
+        "/ probably an unbound class
         ns := Smalltalk.         "/ What a KLUDGE
+    ] ifFalse:[
+        ns isNameSpace ifFalse:[
+            "detect the problem, that a class has the same name as a namsSpace"
+            self halt:'Not a namspace'.
+            ns := Smalltalk.         "/ What a KLUDGE
+        ]
     ].
     ^ ns.
 !
@@ -4292,11 +4297,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.242 2013-07-11 10:08:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.243 2013-07-25 14:14:10 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.242 2013-07-11 10:08:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.243 2013-07-25 14:14:10 mb Exp $'
 ! !