--- a/ChangesBrowser.st	Wed Oct 08 18:27:26 2003 +0200
+++ b/ChangesBrowser.st	Wed Oct 08 21:36:58 2003 +0200
@@ -1651,7 +1651,8 @@
                 classGlobalNode isUndeclared ifTrue:[
                     ^ 'Class does not exist.'.
                 ].
-                (method := receiver evaluate) isMethod ifTrue:[
+                Error handle:[method := nil] do:[method := receiver evaluate].
+                method isMethod ifTrue:[
                     method category = parseTree arg1 evaluate ifFalse:[
                         ^ '(' , method class name , ' compiledMethodAt: ' , method selector storeString , ') category: ' , method category storeString.
                     ]
@@ -5536,5 +5537,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.310 2003-10-06 09:50:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.311 2003-10-08 19:36:58 cg Exp $'
 ! !