--- 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!