--- a/UnaryNode.st	Mon Oct 09 12:42:06 2000 +0200
+++ b/UnaryNode.st	Wed Oct 11 14:47:50 2000 +0200
@@ -133,7 +133,7 @@
                     ]
                 ].
                 recVal isCharacter ifTrue:[
-                    (#( asciiValue asInteger digitValue) includes:selector) 
+                    (#( asciiValue asInteger digitValue asString) includes:selector) 
                     ifTrue:[
                         canFold := true
                     ]
@@ -146,7 +146,11 @@
                     (selector == #size) ifTrue:[
                         canFold := folding isSymbol
                                    and:[(folding >= #level1) or:[folding == #full]]
-                    ]
+                    ].
+                    (selector == #asSymbol) ifTrue:[
+                        canFold := folding isSymbol
+                                   and:[(folding >= #level1) or:[folding == #full]]
+                    ].
                 ].
                 (recVal isMemberOf:Array) ifTrue:[
                     (#(asFloatArray asDoubleArray) includes:selector) ifTrue:[
@@ -305,5 +309,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.33 2000-08-31 10:03:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.34 2000-10-11 12:47:50 cg Exp $'
 ! !