--- a/ChangesBrowser.st	Fri Jan 28 10:29:50 2011 +0100
+++ b/ChangesBrowser.st	Sat Jan 29 11:24:38 2011 +0100
@@ -1687,7 +1687,10 @@
         ].
     ].
     selector == #'comment:' ifTrue:[
-        thisClass := receiver evaluate.
+        Parser undefinedVariableError handle:[:ex |
+        ] do:[
+            thisClass := receiver evaluate.
+        ].
         thisClass isBehavior ifTrue:[
             thisClass isLoaded ifTrue:[
                 ^ thisClass name , ' comment: ' , thisClass comment storeString.
@@ -1801,7 +1804,7 @@
 
     ^ nil.
 
-    "Modified: / 20-09-2010 / 19:35:43 / cg"
+    "Modified: / 29-01-2011 / 11:24:09 / cg"
 !
 
 parseExpression:chunk
@@ -6173,9 +6176,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.409 2011-01-18 17:08:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.410 2011-01-29 10:24:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.409 2011-01-18 17:08:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.410 2011-01-29 10:24:38 cg Exp $'
 ! !