--- a/Class.st Fri Nov 08 14:17:18 1996 +0100
+++ b/Class.st Fri Nov 08 14:23:09 1996 +0100
@@ -2219,7 +2219,7 @@
owner := self owningClass.
ns := self namespace.
- owner isNil and:[
+ owner isNil ifTrue:[
(ns notNil and:[ns ~~ Smalltalk]) ifTrue:[
aStream nextPutAll:'"{ Namespace: ''' , ns name , ''' }"'; cr; cr.
]
@@ -4479,6 +4479,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.212 1996-11-08 13:14:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.213 1996-11-08 13:23:09 cg Exp $'
! !
Class initialize!