Class.st
changeset 1932 4d4c4563486b
parent 1930 6a8b95d5f108
child 1935 f08ee7907b40
--- 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!