--- a/MessageNode.st	Mon Oct 09 12:42:06 2000 +0200
+++ b/MessageNode.st	Wed Oct 11 14:47:50 2000 +0200
@@ -169,9 +169,15 @@
                         canFold := folding isSymbol
                                    and:[(folding >= #level2) or:[folding == #full]].
                     ].
-                    ((argVal isMemberOf:String) and:[selector == #',']) ifTrue:[
-                        canFold := folding isSymbol
-                                   and:[(folding >= #level2) or:[folding == #full]].
+                    selector == #',' ifTrue:[
+                        (argVal isMemberOf:String) ifTrue:[
+                            canFold := folding isSymbol
+                                       and:[(folding >= #level2) or:[folding == #full]].
+                        ].
+                        (argVal isMemberOf:Character) ifTrue:[
+                            canFold := folding isSymbol
+                                       and:[(folding >= #level2) or:[folding == #full]].
+                        ].
                     ]
                 ].
             ].
@@ -3043,5 +3049,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.116 2000-08-31 10:02:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.117 2000-10-11 12:47:36 cg Exp $'
 ! !