--- a/Parser.st	Tue Nov 11 15:20:28 2008 +0100
+++ b/Parser.st	Tue Nov 11 21:31:35 2008 +0100
@@ -7488,6 +7488,11 @@
 !
 
 parseExceptionOrContextPragma
+    "parse 
+        <exception: #handle|raise|unwind>, 
+        <context: #return>
+     context flagging pragmas."
+
     |pragmaType|
 
     "/ notice: '<' has already been parsed.
@@ -9405,7 +9410,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.586 2008-11-05 13:20:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.587 2008-11-11 20:31:35 cg Exp $'
 ! !
 
 Parser initialize!