Index: openacs-4/packages/acs-tcl/tcl/test/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/tcl-documentation-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/acs-tcl/tcl/test/tcl-documentation-procs.tcl	2 Mar 2023 10:49:33 -0000	1.1.2.4
+++ openacs-4/packages/acs-tcl/tcl/test/tcl-documentation-procs.tcl	9 Mar 2023 16:04:02 -0000	1.1.2.5
@@ -5,7 +5,7 @@
 }
 
 aa_register_case \
-    -cats {api smoke production_safe} \
+    -cats {api smoke} \
     -procs {
         ad_complain
         ad_complaints_get_list
@@ -14,12 +14,15 @@
         Test ad_complain api specific behavior
 
     } {
-        set error_array [array get ::ad_page_contract_error_string]
+        set complaints $::ad_page_contract_complaints
+        set error_strings [array get ::ad_page_contract_error_string]
         try {
             #
             # Start from a blank slate
             #
-            unset -nocomplain ::ad_page_contract_error_string
+            unset -nocomplain \
+                ::ad_page_contract_complaints \
+                ::ad_page_contract_error_string
 
             set key __test_acs_tcl_ad_complain_errorkey
             set ::ad_page_contract_error_string($key) "A message from a key"
@@ -33,10 +36,13 @@
 
         } finally {
             #
-            # Reset the real error array to the original
+            # Reset the real error variables to the original
             #
-            unset -nocomplain ::ad_page_contract_error_string
-            array set ::ad_page_contract_error_string $error_array
+            unset -nocomplain \
+                ::ad_page_contract_complaints \
+                ::ad_page_contract_error_string
+            set ::ad_page_contract_complaints $complaints
+            array set ::ad_page_contract_error_string $error_strings
         }
     }