--- a/Project.st	Mon Oct 11 13:52:57 1999 +0200
+++ b/Project.st	Mon Oct 11 17:56:23 1999 +0200
@@ -2778,6 +2778,7 @@
     classes size == 0 ifTrue:[^ isLoaded ? false].
 
     classes do:[:aClass |
+        aClass isBehavior ifFalse:[^ false].
         aClass isLoaded ifFalse:[^ false].
     ].
     ^ true
@@ -3318,6 +3319,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.125 1999-10-09 12:23:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.126 1999-10-11 15:56:23 cg Exp $'
 ! !
 Project initialize!