--- a/Parser.st	Mon Apr 21 16:50:34 2003 +0200
+++ b/Parser.st	Mon Apr 21 17:58:11 2003 +0200
@@ -3200,9 +3200,13 @@
      corrected. If not corrected, only one warning is made per undefined
      variable."
 
-    |doCorrect msg idx boldName|
-
-    doCorrect := UndefinedVariableNotification raiseRequestWith:aName.
+    |ex doCorrect msg idx boldName|
+
+    ex := UndefinedVariableNotification newException.
+    ex parser:self.
+    ex parameter:aName.
+    ex suspendedContext:thisContext.
+    doCorrect := ex raiseRequest.
     doCorrect notNil ifTrue:[
         ^ doCorrect
     ].
@@ -7197,7 +7201,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.380 2003-04-21 14:50:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.381 2003-04-21 15:58:11 martin Exp $'
 ! !
 
 Parser initialize!