--- a/PCFilename.st	Thu Sep 24 12:48:28 1998 +0200
+++ b/PCFilename.st	Thu Sep 24 12:50:05 1998 +0200
@@ -136,6 +136,18 @@
     "Created: 30.1.1998 / 11:49:33 / md"
     "Modified: 30.1.1998 / 11:52:06 / md"
     "Modified: 30.1.1998 / 12:09:18 / dq"
+!
+
+rootDirectoryOnVolume:aVolumeName
+    "return a filename for the root directory on some volume"
+
+    ^ self named:(aVolumeName , ':\')
+
+    "
+     Filename rootDirectoryOnVolume:'d'
+    "
+
+    "Modified: / 23.9.1998 / 16:34:14 / cg"
 ! !
 
 !PCFilename class methodsFor:'queries'!
@@ -367,18 +379,19 @@
     "return the disc volume part of the name or an empty string.
      This is only used with DOS filenames - on unix, an empty string is returned"
 
-    (nameString at:2) == $: ifTrue:[
-        ^ nameString copyTo:1
+    nameString size >= 2 ifTrue:[
+        (nameString at:2) == $: ifTrue:[
+            ^ nameString copyTo:1
+        ].
+"/        (nameString startsWith:'\\') ifTrue:[
+"/            ^ nameString copyFrom:2 to:(nameString indexOf:$\ startingAt:3)-1
+"/        ].
     ].
 
-"/    (nameString startsWith:'\\') ifTrue:[
-"/        ^ nameString copyFrom:2 to:(nameString indexOf:$\ startingAt:3)-1
-"/    ].
-
     ^ ''
 
     "Created: / 7.9.1997 / 23:58:06 / cg"
-    "Modified: / 9.9.1998 / 20:41:25 / cg"
+    "Modified: / 23.9.1998 / 16:42:25 / cg"
 ! !
 
 !PCFilename methodsFor:'special accessing'!
@@ -432,5 +445,5 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.16 1998-09-22 11:12:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.17 1998-09-24 10:50:05 cg Exp $'
 ! !