--- a/Smalltalk.st Thu Dec 23 23:44:58 1999 +0100
+++ b/Smalltalk.st Thu Dec 23 23:50:45 1999 +0100
@@ -315,16 +315,21 @@
FileInDirName := 'fileIn'.
PackageDirName := 'packages'.
].
+'initSysPath SystemPath is ' print. SystemPath printCR.
SystemPath isNil ifTrue:[
SystemPath := OperatingSystem defaultSystemPath.
self flushPathCaches
- ]
+ ].
+
+'initSysPath2 SystemPath is ' print. SystemPath printCR.
"
Smalltalk initSystemPath
Smalltalk systemPath
"
+
+ "Modified: / 23.12.1999 / 23:53:28 / cg"
!
initUserPreferences
@@ -5448,5 +5453,5 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.411 1999-12-23 22:44:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.412 1999-12-23 22:50:45 cg Exp $'
! !