--- a/ParseNode.st	Sat Apr 13 11:40:08 2013 +0200
+++ b/ParseNode.st	Sat Apr 13 11:40:12 2013 +0200
@@ -291,6 +291,9 @@
 !
 
 emitSendLiteralIndex:litIndex numArgs:nargs line:lineNr on:aStream
+    lineNr >= 255 ifTrue:[
+        self codeLineNumber: lineNr on: aStream for: nil.  
+    ].
     (litIndex <= 255) ifTrue:[
         nargs <= 3 ifTrue:[
             aStream 
@@ -317,6 +320,8 @@
         nextPut:#sendVL; nextPut:0; nextPut:lineNr; 
         nextPut:litIndex; nextPut:0; nextPut:0; nextPut:0; 
         nextPut:nargs.
+
+    "Modified: / 13-04-2013 / 11:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 emitStoreGlobalWithLiteralIndex:litIndex on:aTokenCodeStream for:aCompiler
@@ -332,6 +337,9 @@
 !
 
 emitSuperSendLiteralIndex:litIndex classLiteralIndex:clsLitIndex numArgs:nargs line:lineNr on:aStream
+    lineNr >= 255 ifTrue:[
+        self codeLineNumber: lineNr on: aStream for: nil.  
+    ].
     (litIndex <= 255 and:[clsLitIndex <= 255]) ifTrue:[
         aStream 
             nextPut:#superSend; nextPut:lineNr; 
@@ -353,6 +361,8 @@
                 nextPut:clsLitIndex; nextPut:0; nextPut:0; nextPut:0.
         ].
     ].
+
+    "Modified: / 13-04-2013 / 11:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ParseNode methodsFor:'enumeration'!
@@ -671,5 +681,6 @@
 !ParseNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.66 2012-04-19 08:02:53 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.67 2013-04-13 09:40:12 vrany Exp $'
 ! !
+