--- a/UnaryNode.st Wed Jan 12 21:20:41 1994 +0100
+++ b/UnaryNode.st Sun Jan 16 04:51:45 1994 +0100
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.4 1994-01-09 21:30:25 claus Exp $
+$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.5 1994-01-16 03:51:45 claus Exp $
'!
!UnaryNode class methodsFor:'instance creation'!
@@ -126,6 +126,9 @@
evaluate
"evaluate the expression represented by the receiver"
+ receiver isSuper ifTrue:[
+ ^ super evaluate
+ ].
^ (receiver evaluate) perform:selector
! !