--- a/FileBrowser.st	Sat Mar 02 14:19:08 2013 +0100
+++ b/FileBrowser.st	Sat Mar 02 14:19:21 2013 +0100
@@ -2310,8 +2310,11 @@
                 ].
 
                 Transcript showCR:'loading ' , p , ' ...'.
-                ObjectFileLoader loadObjectFile:p.
-                Class addInfoRecord:('fileIn ' , fileName) 
+                (ObjectFileLoader loadObjectFile:p) isNil ifTrue:[
+                    Transcript showCR:'Error: could not load ' , p.
+                ] ifFalse:[
+                    Class addInfoRecord:('fileIn ' , fileName).
+                ].
             ]
         ] ifFalse:[ ((path hasSuffix:'cls') 
                      and:[((path mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
@@ -7502,9 +7505,10 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012-07-27 09:07:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.644 2013-03-02 13:19:21 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012-07-27 09:07:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.644 2013-03-02 13:19:21 stefan Exp $'
 ! !
+