Index: openacs-4/packages/xooauth/tcl/rest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/rest-procs.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xooauth/tcl/rest-procs.tcl	25 Oct 2021 12:02:28 -0000	1.1.2.1
+++ openacs-4/packages/xooauth/tcl/rest-procs.tcl	26 Oct 2021 17:53:19 -0000	1.1.2.2
@@ -220,7 +220,9 @@
             # Convert JSON to a Tcl dict and add it to the result
             # dict.
             #
-            package require json
+            if {[info command ::json::json2dict] eq ""} {
+                package require json
+            }
             return [::json::json2dict $json_string]
         }