--- a/AbstractOperatingSystem.st	Thu Mar 04 16:11:43 2010 +0100
+++ b/AbstractOperatingSystem.st	Thu Mar 04 18:09:36 2010 +0100
@@ -4091,7 +4091,7 @@
      This method is redefined in concrete OS's to add
      OS-specific directory names."
 
-    |sysPath p appDir homePath priv userPrivateSTXDir|
+    |sysPath p appDir homePath priv userPrivateSTXDir appPath|
 
     "
      the path is set to search files first locally
@@ -4107,9 +4107,12 @@
     "/
     "/ the executable's directory
     "/
-    appDir := self pathOfSTXExecutable asFilename directory pathName.
-    (sysPath includes:appDir) ifFalse:[
-        sysPath add:appDir.
+    appPath := self pathOfSTXExecutable.
+    appPath notNil ifTrue:[
+        appDir := appPath asFilename directory pathName.
+        (sysPath includes:appDir) ifFalse:[
+            sysPath add:appDir.
+        ].
     ].
 
     "/
@@ -6888,11 +6891,11 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.193 2010-01-15 14:53:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.194 2010-03-04 17:09:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.193 2010-01-15 14:53:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.194 2010-03-04 17:09:36 cg Exp $'
 ! !
 
 AbstractOperatingSystem initialize!