--- a/MessageNode.st	Fri Jan 07 13:32:28 2000 +0100
+++ b/MessageNode.st	Sat Jan 08 01:20:34 2000 +0100
@@ -158,7 +158,7 @@
                     ]
                 ].
                 (recVal isInteger and:[argVal isInteger]) ifTrue:[
-                    ( #( bitShift: bitOr: ) includes:selector) ifTrue:[
+                    ( #( bitShift: bitOr: bitAnd: ) includes:selector) ifTrue:[
                         canFold := true
                     ]
                 ].
@@ -2791,5 +2791,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.106 1999-11-16 20:51:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.107 2000-01-08 00:20:34 cg Exp $'
 ! !