--- a/MessageNode.st	Fri May 30 12:39:52 2003 +0200
+++ b/MessageNode.st	Tue Jun 03 13:04:07 2003 +0200
@@ -2794,6 +2794,10 @@
         rVal := receiver evaluate.
         rVal == true ifTrue:[
             (selector == #ifFalse:) ifTrue:[
+                valueNeeded ifTrue:[
+                    "/ true ifFalse:[] - evaluates to nil.
+                    aStream nextPut:#pushNil
+                ].
                 ^ true.
             ].
             ((selector == #ifTrue:) or:[selector == #ifTrue:ifFalse:]) ifTrue:[
@@ -2805,6 +2809,10 @@
         ].
         rVal == false ifTrue:[
             (selector == #ifTrue:) ifTrue:[
+                valueNeeded ifTrue:[
+                    "/ false ifTrue:[] - evaluates to nil.
+                    aStream nextPut:#pushNil
+                ].
                 ^ true.
             ].
             ((selector == #ifFalse:) or:[selector == #ifFalse:ifTrue:]) ifTrue:[
@@ -3087,5 +3095,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.130 2003-04-11 17:58:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.131 2003-06-03 11:04:07 cg Exp $'
 ! !