--- a/OpenVMSOperatingSystem.st	Wed Feb 24 12:27:49 1999 +0100
+++ b/OpenVMSOperatingSystem.st	Thu Feb 25 20:17:28 1999 +0100
@@ -5240,6 +5240,24 @@
     "Modified: 28.1.1998 / 14:27:18 / md"
 ! !
 
+!OpenVMSOperatingSystem class methodsFor:'path queries'!
+
+defaultSystemPath
+    |sysPath|
+
+    sysPath := super defaultSystemPath.
+    #(
+	'stx$lib:'
+	'stx$root:[lib]'
+	'stx$root:'
+    ) do:[:d |
+	(d asFilename isDirectory) ifTrue:[
+	    sysPath add:d
+	]
+    ].
+    ^ sysPath
+! !
+
 !OpenVMSOperatingSystem class methodsFor:'os queries'!
 
 executableFileExtensions
@@ -7519,6 +7537,6 @@
 !OpenVMSOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSOperatingSystem.st,v 1.9 1998-10-29 12:27:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSOperatingSystem.st,v 1.10 1999-02-25 19:17:25 cg Exp $'
 ! !
 OpenVMSOperatingSystem initialize!