--- a/Filename.st	Mon Nov 27 23:33:54 1995 +0100
+++ b/Filename.st	Mon Nov 27 23:37:02 1995 +0100
@@ -748,6 +748,18 @@
     self remove
 !
 
+recursiveMakeDirectory
+    "create a directory with the receivers name and all required intermediate
+     directories.
+     Return true if successfull, false if not."
+
+    (OperatingSystem recursiveCreateDirectory:nameString) ifFalse:[
+        ^ self fileCreationError:self
+    ]
+
+    "Created: 27.11.1995 / 23:36:40 / cg"
+!
+
 recursiveRemove
     "remove the directory and all of its subfiles/subdirectories."
 
@@ -1580,5 +1592,5 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.43 1995-11-23 17:10:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.44 1995-11-27 22:37:02 cg Exp $'
 ! !