Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.71.2.68 -r1.71.2.69
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	27 Aug 2024 12:14:03 -0000	1.71.2.68
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	27 Aug 2024 13:55:05 -0000	1.71.2.69
@@ -110,7 +110,11 @@
         close $spec_file_id
 
         # Read the XML file
-        array set spec_array [apm_read_package_info_file $spec_path]
+        aa_silence_log_entries -severities warning {
+            # suppress
+            # ... package info file ... contains an unsupported callback type 'unknown-type' ...
+            array set spec_array [apm_read_package_info_file $spec_path]
+        }
 
         # Assert that info parsed from XML file is correct
         array set parsed_callback_array $spec_array(callbacks)
Index: openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl,v
diff -u -r1.13.2.2 -r1.13.2.3
--- openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl	27 Aug 2024 13:22:02 -0000	1.13.2.2
+++ openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl	27 Aug 2024 13:55:05 -0000	1.13.2.3
@@ -143,10 +143,11 @@
         {[llength [callback b_callback -arg1 foo bar]] == 0}
 
     set foo(test) 2
+    aa_silence_log_entries -severities warning {
+        aa_true "callback returns value for each defined callback and catches the error callback" \
+            {[llength [callback -catch a_callback -arg1 foo bar]] == 2}
+    }
 
-    aa_true "callback returns value for each defined callback and catches the error callback" \
-        {[llength [callback -catch a_callback -arg1 foo bar]] == 2}
-
     aa_true "callback returns correct value for specified implementation" \
         {[callback -impl an_impl1 a_callback -arg1 foo bar] == 1}
 
@@ -158,7 +159,6 @@
 
     aa_true "callback errors with missing arg" \
         {[catch {callback -impl an_impl2 a_callback -arg1 foo} err] == 1}
-
     aa_true "throws error for invalid arguments with implementations" \
         [catch {callback a_callback bar} error]
 
@@ -173,8 +173,6 @@
 
     set x [catch {callback -impl an_impl2 a_callback -arg1 {[aa_test_EvilCallback]} bar} error]
     aa_false "EvilCallback not invoked returned $error" $x
-
-
 }
 
 # Local variables: