--- a/Explainer.st	Mon Dec 09 11:11:35 2002 +0100
+++ b/Explainer.st	Sat Dec 28 15:54:31 2002 +0100
@@ -131,7 +131,9 @@
     "
      ask parser for variable names
     "
-    parser := self parseMethod:source in:aClass ignoreErrors:true ignoreWarnings:true.
+    ParseErrorSignal catch:[
+        parser := self parseMethod:source in:aClass ignoreErrors:true ignoreWarnings:true.
+    ].
     parser notNil ifTrue:[
         "look for variables"
 
@@ -857,5 +859,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.58 2002-11-26 16:19:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.59 2002-12-28 14:54:31 cg Exp $'
 ! !