--- a/smalltalk.rc	Fri Dec 24 03:33:44 1999 +0100
+++ b/smalltalk.rc	Sat Jan 08 16:34:48 2000 +0100
@@ -42,7 +42,7 @@
 "/ funny viewStyles, colors and stupid strings if wrong.
 "/
 
-|path|
+|path systemPath|
 
 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[
     Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:)
@@ -57,7 +57,9 @@
     ]
 ].
 (path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
-    Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:)
+    Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:).
+"/    'setting packagePath from STX_PACKAGEPATH' printCR.
+"/    'packagePath: ' print. Smalltalk packagePath printCR.
 ] ifFalse:[
     "/
     "/ if running in the development environment,
@@ -65,12 +67,16 @@
     "/
     '../../../stx/doc' asFilename exists ifTrue:[
 	Smalltalk packagePath removeAll; add:'../../..'.    
+"/        'setting packagePath for local operation' printCR.
+"/        'packagePath: ' print. Smalltalk packagePath printCR.
     ].
     "/
     "/ any additional local packages ?.
     "/
     'packages' asFilename exists ifTrue:[
 	 Smalltalk packagePath addFirst:'./packages'.    
+"/        'additional local packages' printCR.
+"/        'packagePath: ' print. Smalltalk packagePath printCR.
     ].
 ].
 
@@ -81,10 +87,8 @@
 "/ but, the current directory should always be first ...
 (Smalltalk systemPath includes:'.') ifTrue:[
     Smalltalk systemPath remove:'.'.
-    Smalltalk systemPath addFirst:'.'.
-] ifFalse:[
-    Smalltalk systemPath addFirst:'.'.
 ].
+Smalltalk systemPath addFirst:'.'.
 Smalltalk flushPathCaches.
 !