Index: openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl,v
diff -u -r1.1.2.23 -r1.1.2.24
--- openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	8 Jul 2024 14:10:34 -0000	1.1.2.23
+++ openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	15 Jul 2024 15:34:03 -0000	1.1.2.24
@@ -575,8 +575,14 @@
     Test ad_schedule_proc
 } {
     set cluster_p [server_cluster_enabled_p]
-    set canonical_server_p [ad_canonical_server_p]
 
+    try {
+        set canonical_server_p [ad_canonical_server_p]
+    } on error {errmsg} {
+        aa_false "Cluster not enabled, retrieving the canonical server will fail" $cluster_p
+        set canonical_server_p false
+    }
+
     foreach all_servers_p {t f} {
         #
         # We schedule a trivial proc.