--- a/Filename.st	Sun Sep 21 00:14:26 1997 +0200
+++ b/Filename.st	Mon Sep 22 20:59:22 1997 +0200
@@ -614,6 +614,17 @@
     "Modified: 8.9.1997 / 00:30:57 / cg"
 !
 
+directorySuffix
+    "Return the OS dependent directory suffix string, or nil if there is none.
+     The default is nil here, redefined for VMS"
+
+    (self ~~ ConcreteClass) ifTrue:[
+        ^ ConcreteClass directorySuffix
+    ].
+
+    ^ nil
+!
+
 errorReporter
     "who knows the signals to report errors?"
         
@@ -2716,6 +2727,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.103 1997-09-20 21:51:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.104 1997-09-22 18:59:22 cg Exp $'
 ! !
 Filename initialize!