--- a/Parser.st	Tue Feb 25 22:49:01 2014 +0100
+++ b/Parser.st	Tue Feb 25 23:02:52 2014 +0100
@@ -7983,15 +7983,15 @@
 "/    superNode isNil ifTrue:[
 "/        superNode := SuperNode value:selfValue inClass:classToCompileFor
 "/    ].
-    self markSelfFrom:pos to:pos+4.
+    self markSuperFrom:pos to:pos+4.
 
 "/  JV@2011-07-19: Changed not to share the nodes
 "/    ^ superNode
     ^ (SuperNode value:selfValue inClass:classToCompileFor)
             startPosition: pos endPosition: pos + 4
 
-    "Modified: / 19-07-2011 / 18:12:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 26-07-2012 / 11:37:58 / cg"
+    "Modified: / 25-02-2014 / 22:00:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 primary_thisContext
@@ -11792,11 +11792,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.807 2014-02-25 21:49:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.808 2014-02-25 22:02:52 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.807 2014-02-25 21:49:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.808 2014-02-25 22:02:52 vrany Exp $'
 !
 
 version_SVN