--- a/Class.st	Thu Oct 07 16:31:48 1999 +0200
+++ b/Class.st	Thu Oct 07 16:55:17 1999 +0200
@@ -3749,7 +3749,7 @@
                 |f classes|
 
                 aStream isNil ifTrue:[
-                    (classes := h classes) notNil ifTrue:[
+                    (classes := h classes) size > 0 ifTrue:[
                         (classes includes:self) ifTrue:[
                             f := h pathName.
                             f := f asFilename directory.
@@ -3999,5 +3999,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.357 1999-09-22 07:13:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.358 1999-10-07 14:55:17 cg Exp $'
 ! !