Index: openacs-4/packages/xooauth/tcl/rest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/Attic/rest-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/xooauth/tcl/rest-procs.tcl	19 May 2023 18:31:24 -0000	1.1.2.4
+++ openacs-4/packages/xooauth/tcl/rest-procs.tcl	24 Jul 2023 13:10:36 -0000	1.1.2.5
@@ -249,7 +249,7 @@
             # Convert JSON to a Tcl dict and add it to the result
             # dict.
             #
-            if {[info command ::json::json2dict] eq ""} {
+            if {[info commands ::json::json2dict] eq ""} {
                 package require json
             }
             return [::json::json2dict $json_string]