--- a/AbstractFileBrowser.st	Wed Oct 02 17:32:20 2002 +0200
+++ b/AbstractFileBrowser.st	Mon Oct 07 13:53:21 2002 +0200
@@ -3530,7 +3530,7 @@
 
                 Transcript showCR:'loading ' , p , ' ...'.
                 ObjectFileLoader loadObjectFile:p.
-                Class addInfoRecord:('fileIn ' , fileName) 
+                Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
             ]
         ] ifFalse:[ ((fileName hasSuffix:'cls') 
                      and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
@@ -4421,5 +4421,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.8 2002-10-02 08:40:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.9 2002-10-07 11:53:21 cg Exp $'
 ! !