--- a/AbstractFileBrowser.st	Wed Feb 27 12:21:35 2013 +0100
+++ b/AbstractFileBrowser.st	Sat Mar 02 14:19:08 2013 +0100
@@ -7733,8 +7733,13 @@
                 notifyString := 'loading ' , p , ' ...'.
                 Transcript showCR:notifyString.
                 self notify:notifyString.
-                ObjectFileLoader loadObjectFile:p.
-                Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
+                (ObjectFileLoader loadObjectFile:p) isNil ifTrue:[
+                    notifyString := 'Error: could not load ' , p.
+                    Transcript showCR:notifyString.
+                    self notify:notifyString.
+               ] ifFalse:[
+                    Class addInfoRecord:('fileIn ' , fileName asFilename pathName) 
+                ].
             ]
         ] ifFalse:[ ((fileName hasSuffix:'cls') 
                      and:[((fileName mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
@@ -9106,10 +9111,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.511 2013-02-22 16:35:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.512 2013-03-02 13:19:08 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.511 2013-02-22 16:35:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.512 2013-03-02 13:19:08 stefan Exp $'
 ! !