--- a/UnaryNode.st	Wed Jan 24 17:15:25 2001 +0100
+++ b/UnaryNode.st	Fri Jan 26 17:00:19 2001 +0100
@@ -91,16 +91,20 @@
                         ]
                     ]
                 ].
-                (globalName = 'Smalltalk') ifTrue:[
-                    ( #( isSmalltalkX isVisualWorks isSqueak
-                         isSmalltalkMT isDolphinSmalltalk isVisualAge 
-                         isSmalltalkV) includes:selector)
-                    ifTrue:[
-                        (recVal respondsTo:selector) ifTrue:[
-                            canFold := true
-                        ]
-                    ]
-                ].
+"/ no, this 'optimization' is not good -
+"/ if bytecode is transported to another machine.
+"/ However, the JIT compiler compensates for this ;-)
+"/                (globalName = 'Smalltalk') ifTrue:[
+"/                    ( #( isSmalltalkX isVisualWorks isSqueak
+"/                         isSmalltalkMT isDolphinSmalltalk isVisualAge 
+"/                         isSmalltalkV) includes:selector)
+"/                    ifTrue:[
+"/                        (recVal respondsTo:selector) ifTrue:[
+"/                            canFold := true
+"/                        ]
+"/                    ]
+"/                ].
+
 "/ no, this 'optimization' is not good -
 "/ if bytecode is transported to another machine.
 "/ However, the JIT compiler compensates for this ;-)
@@ -336,5 +340,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.35 2000-12-01 15:23:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.36 2001-01-26 16:00:19 cg Exp $'
 ! !