--- a/AbstractOperatingSystem.st	Wed Dec 01 19:16:04 1999 +0100
+++ b/AbstractOperatingSystem.st	Wed Dec 01 19:16:20 1999 +0100
@@ -3427,7 +3427,7 @@
     ].
 
     "/
-    "/ SMALLTALK_LIBDIR and/or STX_LIBDIR from the environment
+    "/ SMALLTALK_LIBDIR, STX_LIBDIR and STX_TOPDIR from the environment
     "/
     p := OperatingSystem getEnvironment:'SMALLTALK_LIBDIR'.
     p notNil ifTrue:[
@@ -3437,6 +3437,10 @@
     p notNil ifTrue:[
         sysPath add:p
     ].
+    p := OperatingSystem getEnvironment:'STX_TOPDIR'.
+    p notNil ifTrue:[
+        sysPath add:p
+    ].
     ^ sysPath
 ! !
 
@@ -4063,6 +4067,6 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.30 1999-12-01 10:30:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.31 1999-12-01 18:16:20 cg Exp $'
 ! !
 AbstractOperatingSystem initialize!