--- a/Filename.st	Tue Sep 23 06:59:40 1997 +0200
+++ b/Filename.st	Tue Sep 23 08:28:53 1997 +0200
@@ -2473,6 +2473,14 @@
     "Modified: 18.1.1996 / 21:36:27 / cg"
 !
 
+localPathName
+    "return the full pathname of the file represented by the receiver,
+     but without any volume information.
+     Only makes a difference on MSDOS & VMS systems."
+
+    ^ self pathName
+!
+
 pathName
     "return the full pathname of the file represented by the receiver,
      as a string. This will not include ..'s. 
@@ -2727,6 +2735,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.104 1997-09-22 18:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.105 1997-09-23 06:28:51 cg Exp $'
 ! !
 Filename initialize!

--- a/OpenVMSFilename.st	Tue Sep 23 06:59:40 1997 +0200
+++ b/OpenVMSFilename.st	Tue Sep 23 08:28:53 1997 +0200
@@ -966,6 +966,20 @@
     ^ true
 !
 
+localPathName
+    "return the directory & name, but without any volume prefix."
+ 
+    |comps|
+
+    comps := self parseComponentsFrom:nameString.
+    comps volume:nil.
+    ^ self nameFromComponents:comps
+
+    "
+     (OpenVMSFilename named:'dka100:[stx.libbasic]Object.st') localPathName
+    "
+!
+
 volume
     "return the disc volume part of the name or an empty string."
 
@@ -1071,5 +1085,5 @@
 !OpenVMSFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.12 1997-09-23 04:05:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.13 1997-09-23 06:28:53 cg Exp $'
 ! !