--- a/OpenVMSFilename.st	Wed Sep 24 04:54:50 1997 +0200
+++ b/OpenVMSFilename.st	Wed Sep 24 05:45:29 1997 +0200
@@ -1071,6 +1071,13 @@
 
 !OpenVMSFilename methodsFor:'file operations'!
 
+basicMakeDirectory
+    "create a directory with the receivers name.
+     Return true if successful, false if not."
+
+    ^ OperatingSystem executeCommand:('cre/dir ' , self osNameForDirectory)
+!
+
 recursiveRemove
     "remove the directory and all of its subfiles/subdirectories.
      Raise an error if not successful."
@@ -1121,5 +1128,5 @@
 !OpenVMSFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.14 1997-09-24 02:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.15 1997-09-24 03:45:29 cg Exp $'
 ! !