--- a/Project.st	Mon Jan 10 14:37:09 2000 +0100
+++ b/Project.st	Mon Jan 10 14:56:34 2000 +0100
@@ -1790,9 +1790,13 @@
 
 "/ load files which are not in the classLibrary (all if there is none)
 files size > 0 ifTrue:[
-  files do:[:s |
+  files do:[:f |
     ''.'' infoPrint.
-    Smalltalk fileIn:s.
+    f asFilename exists ifTrue:[
+        Smalltalk fileIn:f.
+    ] ifFalse:[
+        Smalltalk fileIn:(''source/'' , f)
+    ]
   ].
   '' '' infoPrintCR.
 ].
@@ -3142,8 +3146,8 @@
     "/ check for all classes ...
     self classes do:[:aClassOrClassName |
         aClassOrClassName isBehavior ifFalse:[
-            aClassOrClassName isSymbol ifTrue:[
-                (cls := Smalltalk at:aClassOrClassName) isNil ifTrue:[
+            aClassOrClassName isString ifTrue:[
+                (cls := Smalltalk at:aClassOrClassName asSymbol) isNil ifTrue:[
                     ^ false
                 ].
                 cls isBehavior ifFalse:[^ false].
@@ -3478,6 +3482,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.135 1999-12-30 11:07:15 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.136 2000-01-10 13:56:34 cg Exp $'
 ! !
 Project initialize!