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.3 -r1.1.2.4
--- openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl	24 Jul 2024 08:05:05 -0000	1.1.2.3
+++ openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl	25 Jul 2024 09:19:52 -0000	1.1.2.4
@@ -38,4 +38,12 @@
         }}
         set jsonDict [util::json2dict $json]
         aa_equals with-array-container $jsonDict {Titel Wirtschaftsinformatik Schlagworte {{hello world} Einführung}}
+
+        set json {{
+            "Titel": "Wirtschaftsinformatik",
+            "nested": {"a":1, "b":{"o1":1,"o2":2}, "objectcontainer": {"o3":3,"o4":4}},
+            "objectcontainer": {"a":"b","c":"d"}
+        }}
+        set jsonDict [util::json2dict $json]
+        aa_equals literal-objectcontainer $jsonDict {Titel Wirtschaftsinformatik nested {a 1 b {o1 1 o2 2} objectcontainer {o3 3 o4 4}} objectcontainer {a b c d}}
     }