--- a/Filename.st	Tue Nov 12 12:23:32 1996 +0100
+++ b/Filename.st	Tue Nov 12 12:43:40 1996 +0100
@@ -672,10 +672,12 @@
 !
 
 asFilename
-    "return the receiver converted to a filename."
+    "return the receiver converted to a filename; here, thats the receiver itself."
 
     "Thats pretty easy here :-)"
     ^ self
+
+    "Modified: 12.11.1996 / 12:40:03 / cg"
 !
 
 asString
@@ -685,7 +687,9 @@
 !
 
 makeLegalFilename 
-    "convert the receveivers name to be a legal filename.
+    "convert the receivers name to be a legal filename.
+     This removes/replaces invalid characters and/or compresses
+     the name as required by the OS.
      The implementation may change in the future to be more
      OS specific."
 
@@ -703,6 +707,8 @@
     "
      'hello world' asFilename makeLegalFilename 
     "
+
+    "Modified: 12.11.1996 / 12:39:04 / cg"
 ! !
 
 !Filename methodsFor:'error handling'!
@@ -871,8 +877,12 @@
      Return true if successful, false if not."
 
     (OperatingSystem createDirectory:nameString) ifFalse:[
-	^ self fileCreationError:self
+        (self exists and:[self isDirectory]) ifFalse:[
+            ^ self fileCreationError:self
+        ]
     ]
+
+    "Modified: 12.11.1996 / 12:25:22 / cg"
 !
 
 makeExecutable
@@ -2056,5 +2066,5 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.73 1996-11-12 11:23:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.74 1996-11-12 11:43:40 cg Exp $'
 ! !