Index: openacs-4/packages/search/tcl/test/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/test/search-procs.tcl,v
diff -u -r1.1.2.11 -r1.1.2.12
--- openacs-4/packages/search/tcl/test/search-procs.tcl	24 Aug 2024 13:21:36 -0000	1.1.2.11
+++ openacs-4/packages/search/tcl/test/search-procs.tcl	25 Aug 2024 10:10:44 -0000	1.1.2.12
@@ -156,13 +156,11 @@
             }
         }
 
-        ns_logctl severity notice 0
-        ns_logctl severity "Debug(sql)" 0
-        aa_true "Invalid event throws an error" [catch {
-            search::queue -object_id $object_id -event BOGUS
-        }]             
-        ns_logctl severity "Debug(sql)" 1
-        ns_logctl severity notice 1        
+        aa_silence_log_entries -severities {error notice} {
+            aa_true "Invalid event throws an error" [catch {
+                search::queue -object_id $object_id -event BOGUS
+            }]
+        }
     }
 
 aa_register_case \