--- a/Parser.st	Mon Feb 02 12:53:35 2015 +0100
+++ b/Parser.st	Mon Feb 02 16:15:52 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 Scanner subclass:#Parser
 	instanceVariableNames:'classToCompileFor selfValue contextToEvaluateIn selector
 		methodArgs methodArgNames methodVars methodVarNames tree
@@ -10059,6 +10061,8 @@
 !Parser methodsFor:'queries'!
 
 annotations
+    "return the annotations - if any (valid after parsing)"
+
     ^ annotations
 
     "Created: / 03-11-2009 / 17:09:45 / Jan Travnicek <travnja3@fel.cvut.cz>"
@@ -10249,6 +10253,8 @@
 !
 
 whichClassIncludesClassVar:aVariableName
+    "helper: find the class in which a class variable is defined"
+
     |cls|
 
     cls := self classToLookForClassVars.
@@ -12084,11 +12090,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.856 2014-12-13 02:22:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.857 2015-02-02 15:15:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.856 2014-12-13 02:22:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.857 2015-02-02 15:15:52 cg Exp $'
 !
 
 version_SVN