--- a/FileURI.st	Sat Mar 20 16:41:16 2004 +0100
+++ b/FileURI.st	Sat Mar 20 16:45:32 2004 +0100
@@ -227,7 +227,7 @@
             renameFilenameString := renameBlock value:eachFilename pathName.
             renameFilenameString asFilename exists ifTrue:[
                 renameFilenameString := renameFilenameString, '.', 
-                        (AbsoluteTime now printStringFormat:'%(year)%(mon)%(day)%h%m%s').
+                        (Timestamp now printStringFormat:'%(year)%(mon)%(day)%h%m%s').
             ].
             eachFilename moveTo:renameFilenameString.
         ].
@@ -341,5 +341,5 @@
 !FileURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.12 2003-12-04 15:58:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.13 2004-03-20 15:45:32 stefan Exp $'
 ! !