--- a/AutoDeletedFilename.st	Wed Nov 13 11:37:55 2013 +0100
+++ b/AutoDeletedFilename.st	Wed Nov 13 11:39:12 2013 +0100
@@ -109,7 +109,7 @@
     "when copying, return a real filename
      (to avoid mutiple removals)"
 
-    ^ Filename named:nameString
+    ^ self species named:nameString
 
     "
         'blaFaselQall.mist' asFilename asAutoDeletedFilename copy
@@ -135,6 +135,14 @@
     ].
 ! !
 
+!AutoDeletedFilename methodsFor:'queries'!
+
+species
+    "filenames derived from me should not be autodeleted themself"
+
+    ^ Filename concreteClass.
+! !
+
 !AutoDeletedFilename methodsFor:'removing'!
 
 recursiveRemove
@@ -160,6 +168,6 @@
 !AutoDeletedFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.10 2013-07-05 12:32:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.11 2013-11-13 10:39:12 stefan Exp $'
 ! !