--- a/ChangesBrowser.st	Mon Jan 27 16:45:50 2003 +0100
+++ b/ChangesBrowser.st	Mon Jan 27 16:55:49 2003 +0100
@@ -3829,12 +3829,16 @@
             selector == #'category:' ifTrue:[
                 parseTree receiver isMessage ifTrue:[
                     parseTree receiver selector == #compiledMethodAt: ifTrue:[
-                        (method := parseTree receiver evaluate) isMethod ifTrue:[
-                            method category = parseTree arg1 evaluate ifFalse:[
-                                oldSource := '(' , method class name , ' compiledMethodAt: ' , method selector storeString , ') category: ' , method category storeString.
+                        parseTree receiver receiver isUndeclared ifTrue:[
+                            oldSource := 'Class does not exist.'.
+                        ] ifFalse:[
+                            (method := parseTree receiver evaluate) isMethod ifTrue:[
+                                method category = parseTree arg1 evaluate ifFalse:[
+                                    oldSource := '(' , method class name , ' compiledMethodAt: ' , method selector storeString , ') category: ' , method category storeString.
+                                ]
+                            ] ifFalse:[
+                                oldSource := 'There is no such method'.
                             ]
-                        ] ifFalse:[
-                            oldSource := 'There is no such method'.
                         ]
                     ]
                 ]
@@ -3908,7 +3912,7 @@
                             thisClass isLoaded ifFalse:[
                                 oldSource := 'Cannot compare this change\\(compare requires class to be loaded).' withCRs.
                             ] ifTrue:[
-                                oldSource := thisClass definitionString.
+                                oldSource := thisClass definition.
                             ]
                         ]
                     ]
@@ -5462,5 +5466,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.286 2003-01-27 12:07:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.287 2003-01-27 15:55:49 cg Exp $'
 ! !