--- a/Win32OS.st	Thu Feb 25 21:26:08 1999 +0100
+++ b/Win32OS.st	Thu Feb 25 21:51:44 1999 +0100
@@ -4286,6 +4286,7 @@
     |sysPath|
 
     sysPath := super defaultSystemPath.
+
     #(
 	'\smalltalk'
 	'\programme\smalltalk'
@@ -4297,6 +4298,9 @@
 	    sysPath add:d
 	]
     ].
+
+    "/ under windows, the commandName includes the path - good.
+    sysPath add:(Smalltalk commandName asFilename directoryName).
     ^ sysPath
 ! !
 
@@ -6671,6 +6675,6 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Win32OS.st,v 1.37 1999-02-25 19:17:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Win32OS.st,v 1.38 1999-02-25 20:51:44 cg Exp $'
 ! !
 Win32OperatingSystem initialize!

--- a/Win32OperatingSystem.st	Thu Feb 25 21:26:08 1999 +0100
+++ b/Win32OperatingSystem.st	Thu Feb 25 21:51:44 1999 +0100
@@ -4286,6 +4286,7 @@
     |sysPath|
 
     sysPath := super defaultSystemPath.
+
     #(
 	'\smalltalk'
 	'\programme\smalltalk'
@@ -4297,6 +4298,9 @@
 	    sysPath add:d
 	]
     ].
+
+    "/ under windows, the commandName includes the path - good.
+    sysPath add:(Smalltalk commandName asFilename directoryName).
     ^ sysPath
 ! !
 
@@ -6671,6 +6675,6 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.37 1999-02-25 19:17:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.38 1999-02-25 20:51:44 cg Exp $'
 ! !
 Win32OperatingSystem initialize!