Index: openacs-4/packages/acs-templating/tcl/test/captcha-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/Attic/captcha-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/acs-templating/tcl/test/captcha-procs.tcl	30 Jan 2022 14:38:58 -0000	1.1.2.6
+++ openacs-4/packages/acs-templating/tcl/test/captcha-procs.tcl	21 Apr 2022 11:34:16 -0000	1.1.2.7
@@ -32,6 +32,7 @@
             } else {
                 ns_return 500 text/plain $message
             }
+            rename test ""
         }
 
         array set element {
Index: openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl,v
diff -u -r1.1.2.22 -r1.1.2.23
--- openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl	31 Jan 2022 13:11:07 -0000	1.1.2.22
+++ openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl	21 Apr 2022 11:34:16 -0000	1.1.2.23
@@ -124,7 +124,6 @@
 
       @author Gustaf Neumann
     } {
-
         Object test
         test set passed 0
         test set failed 0
@@ -1591,8 +1590,10 @@
                     -slot ::xowiki::PodcastItem::slot::pub_date]
         set widgetSpec [$f0 asWidgetSpec]
         ? {regexp {date,optional.*.*YYYY.*MM.*} $widgetSpec} 1 "date with format"
-    }
 
+        test destroy
+   }
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 2