StandaloneStartup.st
changeset 16235 9cc3d059960d
parent 16233 978ff870bd57
child 16236 7a8308397650
--- a/StandaloneStartup.st	Fri Mar 07 09:12:50 2014 +0100
+++ b/StandaloneStartup.st	Fri Mar 07 15:25:54 2014 +0100
@@ -967,7 +967,7 @@
         --allowHost host ..... add host to the allowed scripting hosts
     "
 
-    |idx debugging|
+    |idx debugging baseDir|
 
 "/    Smalltalk beHeadless:true.
 "/    OperatingSystem disableSignal:(OperatingSystem sigHUP).
@@ -999,7 +999,11 @@
     ] ifFalse:[
         self setupToolsForNoDebug.
     ].
-    Smalltalk initSystemPath.
+    "/opt/expecco/bin/expecco -> /opt/expecco"
+    baseDir := OperatingSystem pathOfSTXExecutable asFilename directory directory.
+    Smalltalk packagePath 
+                add:(baseDir constructString:'packages');
+                add:(baseDir constructString:'plugins').
 
     (self suppressRCFileReading) ifFalse:[
         self handleRCFileOptionsFromArguments:argv.
@@ -1201,11 +1205,11 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.84 2014-03-07 08:07:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.85 2014-03-07 14:25:54 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.84 2014-03-07 08:07:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.85 2014-03-07 14:25:54 stefan Exp $'
 ! !