--- a/OpenVMSFilename.st	Tue Sep 09 19:56:07 1997 +0200
+++ b/OpenVMSFilename.st	Tue Sep 09 20:39:30 1997 +0200
@@ -22,6 +22,18 @@
 "
 ! !
 
+!OpenVMSFilename class methodsFor:'instance creation'!
+
+currentDirectory
+    "return a filename for the current directory"
+
+    ^ self named:'[]'
+
+    "
+     Filename currentDirectory
+    "
+! !
+
 !OpenVMSFilename class methodsFor:'helpers'!
 
 nameFromComponents:aComponentObject
@@ -165,7 +177,12 @@
         (f asUppercase endsWith:'.DIR') ifTrue:[
             f := f copyWithoutLast:4
         ].
-        d := comps directory , '.' , f.
+        d := comps directory.
+	d isNil ifTrue:[
+	    d := f.
+	] ifFalse:[
+	    d := d , '.' , f.
+	].
         comps directory:d.
     ].
     comps filename:subname.
@@ -399,5 +416,5 @@
 !OpenVMSFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.2 1997-09-09 17:35:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.3 1997-09-09 18:39:30 cg Exp $'
 ! !