--- a/MessageNode.st	Tue Nov 09 10:35:56 1999 +0100
+++ b/MessageNode.st	Tue Nov 16 21:51:20 1999 +0100
@@ -164,10 +164,12 @@
                 ].
                 (recVal isMemberOf:String) ifTrue:[
                     (argVal isInteger and:[selector == #at:]) ifTrue:[
-                        canFold := (folding >= #level2) or:[folding == #full].
+                        canFold := folding isSymbol
+                                   and:[(folding >= #level2) or:[folding == #full]].
                     ].
                     ((argVal isMemberOf:String) and:[selector == #',']) ifTrue:[
-                        canFold := (folding >= #level2) or:[folding == #full].
+                        canFold := folding isSymbol
+                                   and:[(folding >= #level2) or:[folding == #full]].
                     ]
                 ].
             ].
@@ -198,7 +200,7 @@
 
     ^ (self basicNew) receiver:recNode selector:selectorString args:(Array with:argNode) lineno:0
 
-    "Modified: / 15.1.1998 / 15:04:27 / cg"
+    "Modified: / 16.11.1999 / 21:50:33 / cg"
 !
 
 receiver:recNode selector:selectorString args:anArray
@@ -2789,5 +2791,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.105 1999-11-09 09:35:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.106 1999-11-16 20:51:09 cg Exp $'
 ! !