--- a/MessageNode.st	Mon Feb 01 12:28:56 2010 +0100
+++ b/MessageNode.st	Mon Feb 01 17:20:44 2010 +0100
@@ -2963,11 +2963,18 @@
                 (#(positive negative abs negated + - * == = ~= ~~) includes:selector) ifFalse:[
                     ^ false
                 ].
-            ].
-            recVal isBoolean ifTrue:[
-                (#(not && || ) includes:selector) ifFalse:[
-                    ^ false
-                ].
+            ] ifFalse:[
+                recVal isBoolean ifTrue:[
+                    (#(not && || ) includes:selector) ifFalse:[
+                        ^ false
+                    ].
+                ] ifFalse:[
+                    recVal isString ifTrue:[
+                        (#(size) includes:selector) ifFalse:[
+                            ^ false
+                        ].
+                    ].
+                ]
             ].
             aBlock value:(recVal perform:selector withArguments:argValues).
             ^ true
@@ -2985,9 +2992,9 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.170 2010-01-25 11:35:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.171 2010-02-01 16:20:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.170 2010-01-25 11:35:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.171 2010-02-01 16:20:44 cg Exp $'
 ! !