Smalltalk.st
changeset 5168 2db9a5e11260
parent 5162 f7a14d1e17ce
child 5175 c3e71ead8e06
--- a/Smalltalk.st	Mon Jan 10 21:12:03 2000 +0100
+++ b/Smalltalk.st	Tue Jan 11 20:00:47 2000 +0100
@@ -3199,6 +3199,11 @@
             aStream := self fileInFileStreamFor:(fileNameString copyFrom:8)
         ] ifFalse:[
             aStream := self systemFileStreamFor:fileNameString.
+            aStream isNil ifTrue:[
+                (fileNameString startsWith:'/') ifFalse:[
+                    aStream := self systemFileStreamFor:('lib/' , fileNameString).
+                ]
+            ].
             (aStream notNil and:[fileNameString includes:$/]) ifTrue:[
                 "/ temporarily prepend the files directory
                 "/ to the searchPath.
@@ -5457,5 +5462,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.418 2000-01-08 15:31:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.419 2000-01-11 19:00:47 cg Exp $'
 ! !