*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 08 Nov 1996 14:23:09 +0100
changeset 1932 4d4c4563486b
parent 1931 5f60d3e5ba6e
child 1933 74a0bff1ad19
*** empty log message ***
Class.st
--- 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!