--- a/Class.st Mon Dec 23 13:20:43 1996 +0100
+++ b/Class.st Mon Dec 23 15:59:31 1996 +0100
@@ -2231,7 +2231,8 @@
superclass isNil ifTrue:[
s := 'nil'
] ifFalse:[
- ns == superclass nameSpace ifTrue:[
+ (ns == superclass nameSpace
+ and:[superclass owningClass isNil]) ifTrue:[
s := superclass nameWithoutPrefix
] ifFalse:[
s := superclass name
@@ -4500,6 +4501,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.225 1996-12-23 10:56:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.226 1996-12-23 14:59:31 ca Exp $'
! !
Class initialize!