Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v
diff -u -r1.11.2.4 -r1.11.2.5
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	23 Jul 2024 13:31:42 -0000	1.11.2.4
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	24 Jul 2024 08:05:05 -0000	1.11.2.5
@@ -681,10 +681,16 @@
                     lappend result $childrendValue
                 }
             }
-            NONE -
-            ARRAY {
+            NONE {
                 lappend result [$n nodeName] $childrendValue
             }
+            ARRAY {
+                if {[$n nodeName] ne "arraycontainer"} {
+                    lappend result [$n nodeName] $childrendValue
+                } else {
+                    lappend result $childrendValue
+                }
+            }
             default {
                 set op [expr {[llength $nodes] > 1 ? "lappend" : "set"} ]
                 $op result [$n nodeValue]