--- a/Class.st	Sat Feb 01 12:54:38 1997 +0100
+++ b/Class.st	Sat Feb 01 15:36:28 1997 +0100
@@ -2496,7 +2496,12 @@
                 cls := self privateClassesAt:superName.
                 cls isNil ifTrue:[
                     (topOwner := self topOwningClass) isNil ifTrue:[
-                        cls := self nameSpace at:superName
+                        ns := self nameSpace.
+                        ns notNil ifTrue:[
+                            cls := ns privateClassesAt:superName
+                        ] ifFalse:[
+                            "/ self error:'unexpected nil namespace'
+                        ]
                     ] ifFalse:[
                         cls := topOwner nameSpace at:superName.
                     ]
@@ -4883,6 +4888,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.255 1997-01-30 20:13:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.256 1997-02-01 14:36:28 ca Exp $'
 ! !
 Class initialize!