--- a/OpenVMSFilename.st	Mon Sep 22 21:02:08 1997 +0200
+++ b/OpenVMSFilename.st	Mon Sep 22 21:04:17 1997 +0200
@@ -239,12 +239,13 @@
 	    sep := $\
 	].
 
-	"/ although not legal,
+	"/ although not a legal VMS name,
 	"/ we support the form volume:<unixPath>
 	"/ this makes your life easier in the FileBrowser
 	"/ or FileEntry dialogs. However, you should not
 	"/ place such filenames into your program, since
 	"/ those are not compatible with UNIX/MSDOS conventions
+	"/ i.e. that should be used for user-entered pathNames only.
 	"/
 	idx1 := nameString indexOf:sep.
 	idx2 := nameString indexOf:$:.
@@ -319,7 +320,11 @@
 	    d isEmpty ifTrue:[
                 d := nameString copyFrom:idx0 to:(idx-1).
 	    ] ifFalse:[
-		d := d , '.' , (nameString copyFrom:idx0 to:(idx-1)).
+		(d endsWith:$.) ifTrue:[
+		    d := d , (nameString copyFrom:idx0 to:(idx-1)).
+		] ifFalse:[
+		    d := d , '.' , (nameString copyFrom:idx0 to:(idx-1)).
+		]
 	    ].
             idx := idx + 1.
 
@@ -381,7 +386,10 @@
 !
 
 directorySuffix
-    ^ '.DIR'
+    "Return the suffix for directories.
+     In VMS, all directories have a '.dir' extension."
+
+    ^ 'DIR'
 !
 
 isBadCharacter:aCharacter
@@ -1054,5 +1062,5 @@
 !OpenVMSFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.10 1997-09-20 21:51:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.11 1997-09-22 19:04:17 cg Exp $'
 ! !