--- a/ChangesBrowser.st	Thu Aug 02 10:34:44 2001 +0200
+++ b/ChangesBrowser.st	Thu Aug 02 11:17:52 2001 +0200
@@ -1492,10 +1492,12 @@
                                         changeType := '(category change)'.
                                         changeString := self contractClass:cls selector:sel to:maxLen.
                                         changeClassNames at:changeClassNames size put:cls.
-                                        m := changeClass compiledMethodAt:sel asSymbol.
-                                        m notNil ifTrue:[
-                                            m category = (p args at:1) evaluate ifTrue:[
-                                                changeDelta := '='.
+                                        changeClass notNil ifTrue:[
+                                            m := changeClass compiledMethodAt:sel asSymbol.
+                                            m notNil ifTrue:[
+                                                m category = (p args at:1) evaluate ifTrue:[
+                                                    changeDelta := '='.
+                                                ]
                                             ]
                                         ].
                                     ].
@@ -3660,5 +3662,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.214 2001-08-01 14:48:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.215 2001-08-02 09:17:52 stefan Exp $'
 ! !