--- a/Project.st	Mon Sep 06 17:46:18 1999 +0200
+++ b/Project.st	Mon Sep 06 18:17:20 1999 +0200
@@ -1806,7 +1806,11 @@
     "return true, if all classes of the package are loaded
      (i.e. there are no autoloaded stubs present)"
 
-    self classes do:[:aClass |
+    |classes|
+
+    classes := self classes.
+    classes isNil ifTrue:[^ isLoaded ? false].
+    classes do:[:aClass |
         aClass isLoaded ifFalse:[^ false].
     ].
     ^ true
@@ -2111,6 +2115,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.88 1999-09-06 15:30:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.89 1999-09-06 16:17:20 cg Exp $'
 ! !
 Project initialize!