--- a/Filename.st	Tue Feb 05 12:00:02 2019 +0100
+++ b/Filename.st	Wed Feb 06 11:01:21 2019 +0100
@@ -703,7 +703,9 @@
         aDirectoryOrNil isNil ifTrue:[
             newTempFilename := self named:nameString
         ] ifFalse:[
-            newTempFilename := aDirectoryOrNil asFilename construct:nameString
+            "do not use #construct - I might be an AutoDeletedFilename!!"    
+            newTempFilename := aDirectoryOrNil asFilename constructString:nameString.
+            newTempFilename := self named:newTempFilename.    
         ].
         oldNameString := nameString.
     ] doWhile:[
@@ -742,6 +744,7 @@
 
     "Modified: / 07-09-1995 / 10:48:31 / claus"
     "Modified: / 07-05-2010 / 11:46:05 / cg"
+    "Modified: / 06-02-2019 / 10:44:21 / Stefan Vogel"
 !
 
 nullDevice