--- a/ChangesBrowser.st	Tue Oct 13 09:39:27 2009 +0200
+++ b/ChangesBrowser.st	Tue Oct 13 17:46:36 2009 +0200
@@ -5764,7 +5764,11 @@
                             changeDelta := '+'.
                         ] ifTrue:[
                             m := changeClass compiledMethodAt:methodSelector asSymbol.
-                            currentText := m source.
+                            Error handle:[:ex |
+                                Transcript showCR:'Error while accessing methods current source: ',ex description.
+                            ] do:[
+                                currentText := m source.
+                            ].
                             currentText notNil ifTrue:[
                                 text asString string withoutTrailingSeparators = currentText asString string withoutTrailingSeparators ifTrue:[
                                     changeDelta := '='
@@ -6077,5 +6081,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.392 2009-08-14 20:34:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.393 2009-10-13 15:46:36 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.393 2009-10-13 15:46:36 cg Exp $'
 ! !