--- a/Filename.st	Thu Sep 24 12:03:42 1998 +0200
+++ b/Filename.st	Thu Sep 24 12:48:28 1998 +0200
@@ -523,6 +523,25 @@
     "Modified: 8.9.1997 / 00:24:15 / cg"
 !
 
+rootDirectoryOnVolume:aVolumeName
+    "return a filename for the root directory on some volume"
+
+    (self ~~ ConcreteClass) ifTrue:[
+        ^ ConcreteClass rootDirectoryOnVolume:aVolumeName
+    ].
+
+    "/ fallBack - works on Unix (not on MSDOS or VMS)
+
+    ^ self named:aVolumeName
+
+    "
+     Filename rootDirectoryOnVolume:'/phys/idefix'
+     Filename rootDirectoryOnVolume:'d'
+    "
+
+    "Modified: / 23.9.1998 / 16:33:08 / cg"
+!
+
 tempDirectory
     "return the temp directory as a filename.
      If any of the environment variables STX_TMPDIR, ST_TMPDIR,
@@ -2972,6 +2991,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.133 1998-09-22 11:11:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.134 1998-09-24 10:48:28 cg Exp $'
 ! !
 Filename initialize!