--- a/CBrowser.st	Wed Jan 29 18:09:17 1997 +0100
+++ b/CBrowser.st	Wed Jan 29 18:48:25 1997 +0100
@@ -1671,7 +1671,7 @@
     inStream isNil ifTrue:[^ false].
 
     self withCursor:(Cursor write) do:[
-        |excla sawExcla done dir chunk
+        |excla sawExcla done chunk
          nChanges "{Class:SmallInteger}" |
 
         excla := inStream class chunkSeparator.
@@ -1711,14 +1711,14 @@
         ].
         outStream close.
         inStream close.
-        dir := FileDirectory currentDirectory.
-        dir renameFile:changeFileName newName:(changeFileName , '.bak').
-        dir renameFile:tempfile name newName:changeFileName.
+        changeFileName asFilename renameTo:(changeFileName , '.bak').
+        tempfile renameTo:changeFileName.
         anyChanges := false
     ].
     ^ true
 
     "Modified: 5.9.1996 / 17:20:26 / cg"
+    "Modified: 2.12.1996 / 22:29:15 / stefan"
 ! !
 
 !ChangesBrowser methodsFor:'termination'!
@@ -2440,5 +2440,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.99 1997-01-21 21:29:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.100 1997-01-29 17:48:25 stefan Exp $'
 ! !

--- a/ChangesBrowser.st	Wed Jan 29 18:09:17 1997 +0100
+++ b/ChangesBrowser.st	Wed Jan 29 18:48:25 1997 +0100
@@ -1671,7 +1671,7 @@
     inStream isNil ifTrue:[^ false].
 
     self withCursor:(Cursor write) do:[
-        |excla sawExcla done dir chunk
+        |excla sawExcla done chunk
          nChanges "{Class:SmallInteger}" |
 
         excla := inStream class chunkSeparator.
@@ -1711,14 +1711,14 @@
         ].
         outStream close.
         inStream close.
-        dir := FileDirectory currentDirectory.
-        dir renameFile:changeFileName newName:(changeFileName , '.bak').
-        dir renameFile:tempfile name newName:changeFileName.
+        changeFileName asFilename renameTo:(changeFileName , '.bak').
+        tempfile renameTo:changeFileName.
         anyChanges := false
     ].
     ^ true
 
     "Modified: 5.9.1996 / 17:20:26 / cg"
+    "Modified: 2.12.1996 / 22:29:15 / stefan"
 ! !
 
 !ChangesBrowser methodsFor:'termination'!
@@ -2440,5 +2440,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.99 1997-01-21 21:29:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.100 1997-01-29 17:48:25 stefan Exp $'
 ! !