--- a/ChangesBrowser.st	Wed Jan 14 21:57:34 2009 +0100
+++ b/ChangesBrowser.st	Fri Jan 16 12:46:14 2009 +0100
@@ -3620,7 +3620,11 @@
 
             (self class methodDefinitionSelectors includes:selector) ifTrue:[
                 newSource := aStream nextChunk.
-                thisClass := parseTree receiver evaluate.
+                Error 
+                    handle:[ ]
+                    do:[
+                        thisClass := parseTree receiver evaluate.
+                    ].
                 thisClass isBehavior ifFalse:[
                     thisClass := self classOfChange:changeNr.
                 ].
@@ -6015,5 +6019,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.386 2008-12-16 11:08:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.387 2009-01-16 11:46:14 cg Exp $'
 ! !