--- a/ChangesBrowser.st	Mon Sep 25 14:14:28 2000 +0200
+++ b/ChangesBrowser.st	Tue Sep 26 14:48:19 2000 +0200
@@ -1120,7 +1120,9 @@
 
     sawExcla ifTrue:[
         parseTree := Parser parseExpression:chunk.
-        (parseTree notNil and:[parseTree isMessage]) ifTrue:[
+        (parseTree notNil 
+        and:[parseTree ~~ #Error
+        and:[parseTree isMessage]]) ifTrue:[
             sel := parseTree selector.
             (#(
                #methodsFor: 
@@ -3445,5 +3447,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.200 2000-08-31 10:05:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.201 2000-09-26 12:48:19 cg Exp $'
 ! !