--- a/ChangesBrowser.st	Sun Oct 26 12:50:13 2008 +0100
+++ b/ChangesBrowser.st	Sun Oct 26 13:02:36 2008 +0100
@@ -112,19 +112,21 @@
     "Modified: / 6.2.1998 / 13:25:18 / cg"
 !
 
-openOn:aFileName
+openOn:aFilename
     "create a changes browser on a change file"
 
-    |browser|
-
-    (self isXMLFile:aFileName) ifTrue:[
-	browser := ChangeSetBrowser new
+    |fileName browser|
+
+    fileName := aFilename asFilename pathName.
+
+    (self isXMLFile:fileName) ifTrue:[
+        browser := ChangeSetBrowser new
     ] ifFalse:[
-	browser := self new
-    ].
-
-    browser label:(self defaultLabel , ': ', aFileName).
-    browser changeFileName:aFileName.
+        browser := self new
+    ].
+
+    browser label:(self defaultLabel , ': ', fileName).
+    browser changeFileName:fileName.
     browser open.
     ^ browser
 ! !
@@ -6010,5 +6012,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.381 2008-10-20 10:42:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.382 2008-10-26 12:02:36 cg Exp $'
 ! !