--- a/smalltalk.rc	Sat Jun 05 14:24:54 1999 +0200
+++ b/smalltalk.rc	Sat Jun 05 20:39:17 1999 +0200
@@ -317,6 +317,26 @@
     needToReactivate := false
 ].
 
+"/
+"/ if running in the development environment,
+"/ make certain, that the current work-dirs come first.
+"/
+'../../doc' asFilename exists ifTrue:[
+    Smalltalk systemPath addFirst:'../..'.
+].
+'../doc' asFilename exists ifTrue:[
+    Smalltalk systemPath addFirst:'..'.
+].
+
+"/ but, the current directory should always be first ...
+(Smalltalk systemPath includes:'.') ifTrue:[
+    Smalltalk systemPath remove:'.'.
+    Smalltalk systemPath addFirst:'.'.
+] ifFalse:[
+    Smalltalk systemPath addFirst:'.'.
+].
+Smalltalk flushPathCaches.
+
 Class withoutUpdatingChangesDo:[   
    'smalltalk.rc [info]: installing autoloaded classes ...' infoPrintCR.
    Smalltalk installAutoloadedClassesFrom:'include/abbrev.stc'.