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.6 -r1.11.2.7
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	25 Jul 2024 09:19:52 -0000	1.11.2.6
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	26 Jul 2024 10:00:46 -0000	1.11.2.7
@@ -693,11 +693,10 @@
                 lappend result [$n nodeName] $childrendValue
             }
             ARRAY {
-                if {[$n nodeName] ne "arraycontainer"} {
-                    lappend result [$n nodeName] $childrendValue
-                } else {
-                    lappend result $childrendValue
-                }
+               if {[$n nodeName] ne "arraycontainer" || $parentType eq "OBJECT"} {
+                   lappend result [$n nodeName]
+               }
+                lappend result $childrendValue
             }
             default {
                 set op [expr {[llength $nodes] > 1 ? "lappend" : "set"} ]