--- a/ChangesBrowser.st	Fri Jan 10 01:12:02 2003 +0100
+++ b/ChangesBrowser.st	Fri Jan 10 12:35:42 2003 +0100
@@ -2370,10 +2370,11 @@
                                     sel := nil.
                                 ].
 
-                                (p ~~ #Error
+                                (p notNil
+                                and:[p ~~ #Error
                                 and:[p isMessage 
                                 and:[rec isMessage
-                                and:[rec selector == #compiledMethodAt:]]]) ifTrue:[
+                                and:[rec selector == #compiledMethodAt:]]]]) ifTrue:[
                                     nameAndClass := self extractClassAndClassNameFromParseTree:rec receiver.
                                     clsName := nameAndClass key. changeClass := nameAndClass value.
 
@@ -5129,5 +5130,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.280 2002-11-19 17:12:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.281 2003-01-10 11:35:42 cg Exp $'
 ! !