--- a/ChangesBrowser.st	Mon Sep 15 22:04:22 1997 +0200
+++ b/ChangesBrowser.st	Mon Sep 15 23:06:52 1997 +0200
@@ -1726,7 +1726,7 @@
      That way, if anything happens, either the original file is left unchanged,
      or we have at least a backup of the previous change file."
 
-    |inStream outStream tempfile stamp|
+    |inStream outStream tempfile stamp f|
 
     editingClassSource ifTrue:[
         (self confirm:'You are editing a classes sourceFile (not a changeFile) !!\\Are you certain, you want to overwrite it ?' withCRs)
@@ -1795,7 +1795,8 @@
             inStream close.
         ].
 
-        changeFileName asFilename renameTo:(changeFileName , '.bak').
+	f := changeFileName asFilename.
+	f renameTo:(changeFileName withSuffix:'bak').
         tempfile renameTo:changeFileName.
         anyChanges := false
     ].
@@ -2583,5 +2584,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.116 1997-08-18 14:45:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.117 1997-09-15 21:06:52 cg Exp $'
 ! !