--- a/ChangesBrowser.st	Wed Sep 17 19:53:51 1997 +0200
+++ b/ChangesBrowser.st	Wed Sep 17 19:57:43 1997 +0200
@@ -1796,7 +1796,7 @@
         ].
 
 	f := changeFileName asFilename.
-	f renameTo:(changeFileName withSuffix:'bak').
+	f renameTo:(f withSuffix:'bak').
         tempfile renameTo:changeFileName.
         anyChanges := false
     ].
@@ -2584,5 +2584,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.117 1997-09-15 21:06:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.118 1997-09-17 17:57:43 cg Exp $'
 ! !