--- a/h_win32.rc	Tue Dec 13 15:20:05 2005 +0100
+++ b/h_win32.rc	Thu Dec 15 16:09:35 2005 +0100
@@ -29,8 +29,10 @@
 k notNil ifTrue:[
     libDir := k valueNamed:'LibDir'.
     (libDir notNil and:[libDir asFilename exists]) ifTrue:[
-	Smalltalk systemPath addFirst:libDir.
-	Smalltalk flushPathCaches
+	(Smalltalk systemPath includes:(libDir asFilename pathName)) ifFalse:[
+	    Smalltalk systemPath addFirst:(libDir asFilename pathName).
+	    Smalltalk flushPathCaches
+	]
     ].
     k close.
 ].

--- a/private.rc	Tue Dec 13 15:20:05 2005 +0100
+++ b/private.rc	Thu Dec 15 16:09:35 2005 +0100
@@ -103,7 +103,9 @@
 "/        '../../libpro'
      ) do:[:p |
 	p asFilename exists ifTrue:[
-	    Smalltalk systemPath addFirst:p.
+	    (Smalltalk systemPath includes:(p asFilename pathName)) ifFalse:[
+		Smalltalk systemPath addFirst:(p asFilename pathName).
+	    ]
 	]
     ].
 ].