--- a/UnaryNode.st	Wed Oct 08 17:13:25 2003 +0200
+++ b/UnaryNode.st	Wed Oct 08 17:26:34 2003 +0200
@@ -233,6 +233,8 @@
                 ]
             ].
             notSelector notNil ifTrue:[
+                aCompiler addLiteral:selector; addLiteral:rSel.
+
                 (BinaryNode receiver:(receiver receiver)
                             selector:notSelector
                                  arg:(receiver arg)) codeOn:aStream inBlock:b for:aCompiler.
@@ -337,5 +339,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.40 2003-03-28 15:37:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.41 2003-10-08 15:26:34 cg Exp $'
 ! !