--- a/FileURI.st	Mon Jul 21 11:12:36 2003 +0200
+++ b/FileURI.st	Thu Jul 24 11:29:43 2003 +0200
@@ -279,8 +279,18 @@
                 ex reject
             ].    
             fileName directory recursiveMakeDirectory.
+            self exists ifTrue:[ |infoStream|
+                infoStream := '' writeStream.
+                self publicPrintOn:infoStream.
+                self error:('Local write: Datei %1 already exists!!' bindWith:infoStream contents).
+            ].
             stream := toFileName writeStream.
         ] do:[
+            self exists ifTrue:[ |infoStream|
+                infoStream := '' writeStream.
+                self publicPrintOn:infoStream.
+                self error:('Local write: Datei %1 already exists!!' bindWith:infoStream contents).
+            ].
             stream := toFileName writeStream.
         ].
         aBlock value:stream value:self class attributes.
@@ -304,5 +314,5 @@
 !FileURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.8 2003-07-13 22:50:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.9 2003-07-24 09:29:43 tm Exp $'
 ! !