--- a/Parser.st	Wed May 27 16:55:52 2015 +0200
+++ b/Parser.st	Wed May 27 17:41:07 2015 +0200
@@ -9071,7 +9071,7 @@
         <context: #return>
      context flagging pragmas."
 
-    |pragmaType|
+    |pragmaType pragmaValue|
 
     "/ notice: '<' has already been parsed.
     pragmaType := tokenName.
@@ -9097,10 +9097,12 @@
             self parseError:'invalid exception pragma: ' , (tokenValue ? tokenName).
         ].
     ].
+    pragmaValue := tokenValue.
+
     self nextToken.
     self checkForClosingAngle.
 
-    self addAnnotationWithKey:pragmaType asSymbol andArguments:{ tokenValue }.
+    self addAnnotationWithKey:pragmaType asSymbol andArguments:{ pragmaValue }.
 
     "Modified: / 19-11-2009 / 11:10:04 / Jan Travnicek <travnja3@fel.cvut.cz>"
     "Modified: / 01-07-2010 / 12:33:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -12269,11 +12271,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.885 2015-05-27 14:55:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.886 2015-05-27 15:41:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.885 2015-05-27 14:55:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.886 2015-05-27 15:41:07 cg Exp $'
 !
 
 version_SVN