--- 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 $'
! !