--- a/MessageNode.st	Mon Mar 26 18:01:08 2001 +0200
+++ b/MessageNode.st	Wed Apr 11 13:50:38 2001 +0200
@@ -536,6 +536,13 @@
                             ]
                     ].
     ].
+
+"/    receiver isBlock ifTrue:[
+"/        ([] respondsTo:selector) ifFalse:[
+"/            ^ 'blocks do not respond to ' , selector , '; Missing ''.'' between statements ?'
+"/        ].
+"/    ].
+
     ^ nil
 
     "Modified: / 16.7.1998 / 20:29:53 / cg"
@@ -3049,5 +3056,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.118 2000-12-19 18:55:10 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.119 2001-04-11 11:50:38 cg Exp $'
 ! !