--- a/MessageNode.st	Tue Feb 21 14:07:41 2006 +0100
+++ b/MessageNode.st	Tue Feb 21 14:08:08 2006 +0100
@@ -533,25 +533,9 @@
     "
     ((selector == #ifTrue:) or:[selector == #ifFalse:]) ifTrue:[
         (msg := self checkCondition) notNil ifTrue:[^ msg].
-"/        arg1 isBlock ifFalse:[
-"/            arg1 isConstant ifFalse:[
-"/                ^ 'will fail at runtime, if argument to ' , selector , ' does not evaluate to a block or respond reasonable to #value'
-"/            ].
-"/        ]
     ].
     ((selector == #ifTrue:ifFalse:) or:[selector == #ifFalse:ifTrue:]) ifTrue:[
         (msg := self checkCondition) notNil ifTrue:[^ msg].
-"/        arg1 isBlock ifFalse:[
-"/            arg1 isConstant ifFalse:[
-"/                ^ 'will fail at runtime, if 1st. argument to ' , selector , ' does not evaluate to a block or respond reasonable to #value'
-"/            ]
-"/        ].
-"/        arg2 := argArray at:2.
-"/        arg2 isBlock ifFalse:[
-"/            arg2 isConstant ifFalse:[
-"/                ^ 'will fail at runtime, if 2nd. argument to ' , selector , ' does not evaluate to a block or respond reasonable to #value'
-"/            ]
-"/        ]
     ].
 
     "
@@ -2941,5 +2925,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.150 2006-01-09 10:36:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.151 2006-02-21 13:08:08 cg Exp $'
 ! !