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]
Index: openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl	23 Jul 2024 13:38:24 -0000	1.1.2.2
+++ openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl	24 Jul 2024 08:05:05 -0000	1.1.2.3
@@ -29,6 +29,13 @@
             "Schlagworte": ["Wirtschaftsinformatik", "Einführung"]
         }}
         set jsonDict [util::json2dict $json]
-        aa_equals cdnjs-API $jsonDict {Verlag {De Gruyter} Auflage {nr 1 jahr 2020} Autor {{Vorname {Hans Robert} Familienname Hansen} {Vorname {Jan } Familienname Mendling} {Vorname Gustaf Familienname Neumann}} Schlagworte {Wirtschaftsinformatik Einführung}}
+        aa_equals with-object-container $jsonDict {Verlag {De Gruyter} Auflage {nr 1 jahr 2020} Autor {{Vorname {Hans Robert} Familienname Hansen} {Vorname {Jan } Familienname Mendling} {Vorname Gustaf Familienname Neumann}} Schlagworte {Wirtschaftsinformatik Einführung}}
 
+
+        set json {{
+            "Titel": "Wirtschaftsinformatik",
+            "Schlagworte": [["hello","world"], "Einführung"]
+        }}
+        set jsonDict [util::json2dict $json]
+        aa_equals with-array-container $jsonDict {Titel Wirtschaftsinformatik Schlagworte {{hello world} Einführung}}
     }