--- a/AssignmentNode.st	Sat Jun 17 19:52:51 2000 +0200
+++ b/AssignmentNode.st	Mon Jun 19 14:03:02 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 ParseNode subclass:#AssignmentNode
 	instanceVariableNames:'variable expression lineNr'
 	classVariableNames:''
@@ -161,10 +163,11 @@
 
         selLitIdx := aCompiler addLiteral:#value:.
         selLitIdx <= 255 ifTrue:[
-            aStream nextPut:#sendDrop1; nextPut:(lineNr ? 1); nextPut:selLitIdx.
+            aStream nextPut:#send1; nextPut:(lineNr ? 1); nextPut:selLitIdx.
         ] ifFalse:[
-            aStream nextPut:#sendDropL; nextPut:(lineNr ? 1); nextPut:selLitIdx; nextPut:0; nextPut:1 "nargs".
+            aStream nextPut:#sendL; nextPut:(lineNr ? 1); nextPut:selLitIdx; nextPut:0; nextPut:1 "nargs".
         ].
+        aStream nextPut:#drop.
 
         forValue ifTrue:[
             (expression isConstant or:[expression isVariable]) ifTrue:[
@@ -257,5 +260,5 @@
 !AssignmentNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.31 2000-02-12 15:33:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.32 2000-06-19 12:00:53 cg Exp $'
 ! !