--- a/NewChangesBrowser.st	Sat Oct 17 14:43:28 1998 +0200
+++ b/NewChangesBrowser.st	Sat Oct 17 15:25:54 1998 +0200
@@ -34,6 +34,14 @@
 
 !NewChangesBrowser class methodsFor:'instance creation'!
 
+openOn:aFileName
+    "opens a Changes Browser with the changes of the aFileName"
+
+    ^self openOnFile:aFileName
+
+    "Created: / 17.10.1998 / 14:41:28 / cg"
+!
+
 openOnFile:aFileName
     "opens a Changes Browser with the changes of the aFileName"
 
@@ -1715,7 +1723,10 @@
 changeFileName:aFileName
     "sets the name of the file with the changes"
 
-    changeFileName := (Filename currentDirectory asAbsoluteFilename construct: aFileName) name.
+    changeFileName := aFileName asFilename name.
+"/ (Filename currentDirectory asAbsoluteFilename construct: aFileName) name.
+
+    "Modified: / 17.10.1998 / 14:43:01 / cg"
 !
 
 checkClassIsLoaded:aClass
@@ -3507,5 +3518,5 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.22 1998-09-15 09:03:17 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.23 1998-10-17 13:25:54 cg Exp $'
 ! !