--- a/AutoDeletedFilename.st	Mon Jun 22 23:12:25 2009 +0200
+++ b/AutoDeletedFilename.st	Mon Jun 22 23:33:16 2009 +0200
@@ -90,6 +90,12 @@
 "
 ! !
 
+!AutoDeletedFilename class methodsFor:'instance creation'!
+
+named:aString
+    ^ self basicNew setName:aString
+! !
+
 !AutoDeletedFilename class methodsFor:'queries'!
 
 isAbstract
@@ -143,5 +149,5 @@
 !AutoDeletedFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.5 2009-06-22 21:12:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AutoDeletedFilename.st,v 1.6 2009-06-22 21:33:16 stefan Exp $'
 ! !