--- 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 $'
 ! !