--- a/Parser.st	Tue May 18 16:13:21 2004 +0200
+++ b/Parser.st	Wed May 19 16:41:51 2004 +0200
@@ -984,21 +984,28 @@
     compiler ignoreErrors:true.
     compiler lineNumberInfo:#full.
 
-    aMethod notNil ifTrue:[
-        (compiler parseMethodSpec == #Error) ifTrue:[
-            ^ nil.
-        ].
-
-        who notNil ifTrue:[
-            compiler selector ~~ (who methodSelector) ifTrue:[
-                ^ nil
-            ]
-        ].
-    ] ifFalse:[
-        compiler nextToken.
-    ].
-
-    tree := compiler parseMethodBody.
+"/    Notification 
+"/        handle:
+"/            [:ex |
+"/                ex proceed
+"/            ]
+"/        do:[
+            aMethod notNil ifTrue:[
+                (compiler parseMethodSpec == #Error) ifTrue:[
+                    ^ nil.
+                ].
+
+                who notNil ifTrue:[
+                    compiler selector ~~ (who methodSelector) ifTrue:[
+                        ^ nil
+                    ]
+                ].
+            ] ifFalse:[
+                compiler nextToken.
+            ].
+
+            tree := compiler parseMethodBody.
+"/        ].
 
     (compiler errorFlag 
     or:[tree == #Error
@@ -7478,6 +7485,10 @@
 
 !Parser::UndefinedVariableNotification methodsFor:'accessing'!
 
+description
+    ^ 'undefined variable'
+!
+
 parser
     "return the value of the instance variable 'parser' (automatically generated)"
 
@@ -7497,7 +7508,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.419 2004-05-18 14:13:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.420 2004-05-19 14:41:51 cg Exp $'
 ! !
 
 Parser initialize!