--- a/Tools__ObjectModuleInformation.st	Tue Feb 25 12:30:12 2014 +0100
+++ b/Tools__ObjectModuleInformation.st	Tue Feb 25 14:37:21 2014 +0100
@@ -1302,15 +1302,16 @@
 !
 
 loadPackage
-    |package ok|
+    |package|
 
     package := Dialog request:'Name of Package (module:directory)'.
     package isEmptyOrNil ifTrue:[^ self].
-    self withWaitCursorDo:[
-        ok := Smalltalk loadPackage:package.
-    ].
-    ok ifFalse:[
-        Dialog information:'Package not loaded'
+    [
+        self withWaitCursorDo:[
+            Smalltalk loadPackage:package.
+        ].
+    ] on:PackageLoadError do:[:ex|
+        Dialog information:'Package not loaded: ', ex description.
     ].
     self updateModuleList
 !