Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.126.2.89 -r1.126.2.90
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	14 May 2023 22:18:07 -0000	1.126.2.89
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	14 May 2023 23:08:53 -0000	1.126.2.90
@@ -1452,20 +1452,22 @@
                                 -package_id $subsite_id \
                                 -default *]
     set result {}
-    foreach auth_obj [::xo::Authorize info instances -closure] {
-        #
-        # Don't list on the general available pages the external
-        # authorization objects when these are configured in debugging
-        # mode.
-        #
-        if {[$auth_obj cget -debug]} {
-            continue
-        }
+    if {[nsf::is object ::xo::Authorize]} {
+        foreach auth_obj [::xo::Authorize info instances -closure] {
+            #
+            # Don't list on the general available pages the external
+            # authorization objects when these are configured in debugging
+            # mode.
+            #
+            if {[$auth_obj cget -debug]} {
+                continue
+            }
 
-        if {$offered_registries eq "*"
-            || $auth_obj in $offered_registries
-        } {
-            lappend result $auth_obj
+            if {$offered_registries eq "*"
+                || $auth_obj in $offered_registries
+            } {
+                lappend result $auth_obj
+            }
         }
     }
     return $result