--- a/Filename.st	Fri Sep 10 14:04:29 2004 +0200
+++ b/Filename.st	Fri Sep 10 15:16:26 2004 +0200
@@ -2364,9 +2364,18 @@
 
     |inStream outStream|
 
+    "Contents is not copied if newName represent same file as me."
+    newName asFilename asAbsoluteFilename = self asAbsoluteFilename ifTrue: [ ^ self ].
+
     inStream := self readStream.
+    inStream isNil ifTrue:[
+        ^ self fileNotFoundError:self 
+    ].
     [
         outStream := newName asFilename writeStream.
+        outStream isNil ifTrue:[
+            ^ self fileCreationError:newName asFilename
+        ].
 
         [
             inStream copyToEndInto:outStream.
@@ -2385,6 +2394,7 @@
     "
 
     "Modified: / 23.12.1999 / 21:52:36 / cg"
+    "Modified: / 10.9.2004 / 09:49:28 / janfrog"
 !
 
 createAsEmptyFile
@@ -5021,7 +5031,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.281 2004-08-13 19:30:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.282 2004-09-10 13:16:26 cg Exp $'
 ! !
 
 Filename initialize!