--- a/OpenVMSFilename.st	Tue Sep 16 16:55:06 1997 +0200
+++ b/OpenVMSFilename.st	Tue Sep 16 19:53:34 1997 +0200
@@ -425,13 +425,13 @@
     suff := self suffix asUppercase.
     type := StandardSuffixTable at:suff ifAbsent:nil.
     type isNil ifTrue:[
-	type := super filyType.
+	type := super fileType.
 	type = 'file' ifTrue:[
 	    "/ look at its record format
 	    info := self info.
 	    fmt := info recordFormat ? ''.
 	    fmt size > 0 ifTrue:[
-	        type := type , '(' , fmt ,')'
+	        type := type , ' (' , fmt ,')'
 	    ]
 	]
     ].
@@ -506,7 +506,13 @@
 	"/ if it has no suffix, at least append a suffix character
 	"/
 	(f includes:$.) ifFalse:[
-	    comps filename:(f , '.')
+	    f := f , '.'.
+	    comps filename:f.
+	].
+	(f endsWith:'.') ifTrue:[
+	    "/ no suffix -> make it '.dir'
+	    f := f , 'DIR'.
+	    comps filename:f.
 	].
 	osName := self nameFromComponents:comps.
 	^ osName
@@ -923,5 +929,5 @@
 !OpenVMSFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.6 1997-09-16 04:06:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.7 1997-09-16 17:53:32 cg Exp $'
 ! !