--- a/Archiver.st	Tue Jan 09 16:07:19 2007 +0100
+++ b/Archiver.st	Tue Jan 09 16:43:46 2007 +0100
@@ -494,12 +494,12 @@
 
     "/ keep a save copy
 
-    backupFile := archivFile withSuffix: 'sav'.
-    (backupFile exists) ifTrue:[
-          backupFile recursiveRemove. " works for a file as well as for a directory " 
-    ].
+"/    backupFile := archivFile withSuffix: 'sav'.
+"/    (backupFile exists) ifTrue:[
+"/          backupFile recursiveRemove. " works for a file as well as for a directory " 
+"/    ].
 
-    archivFile renameTo:(archivFile withSuffix:'sav').
+"/    archivFile renameTo:(archivFile withSuffix:'sav').
 
     [
         "/ copy files to be added to tempDir
@@ -1296,7 +1296,7 @@
 !Archiver class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.31 2007-01-09 15:07:19 boris Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Archiver.st,v 1.32 2007-01-09 15:43:46 boris Exp $'
 ! !
 
 Archiver initialize!