--- a/OpenVMSFilename.st	Wed Sep 24 06:30:53 1997 +0200
+++ b/OpenVMSFilename.st	Wed Sep 24 06:40:35 1997 +0200
@@ -1075,7 +1075,19 @@
     "create a directory with the receivers name.
      Return true if successful, false if not."
 
-    ^ OperatingSystem executeCommand:('cre/dir ' , self osNameForDirectory)
+    |nm|
+
+    (OperatingSystem executeCommand:('cre/dir ' , self osNameForDirectory))
+	ifFalse:[^ false].
+
+    "/ make it deletable ...
+
+    nm := self osNameForFile.
+    (nm endsWith:'.') ifTrue:[
+	nm := nm , 'DIR'
+    ].
+    OperatingSystem executeCommand:('set sec/prot=o:RWED ' , nm).
+    ^ true
 !
 
 recursiveRemove
@@ -1128,5 +1140,5 @@
 !OpenVMSFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.15 1997-09-24 03:45:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.16 1997-09-24 04:40:35 cg Exp $'
 ! !