diff -r 1005279cfbd7 -r 563f4d832234 Project.st --- 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!