Index: openacs-4/packages/acs-tcl/tcl/test/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/apm-file-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/acs-tcl/tcl/test/apm-file-procs.tcl	27 Aug 2024 12:13:41 -0000	1.1.2.5
+++ openacs-4/packages/acs-tcl/tcl/test/apm-file-procs.tcl	28 Aug 2024 14:27:00 -0000	1.1.2.6
@@ -122,5 +122,7 @@
             foreach f [apm_get_package_files -all -package_key acs-tcl] {
                 aa_true "File '$f' was found in the tarfile" [info exists tar_visited($f)]
             }
+            
+            file delete -force $tmpdir
         }
     }
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.25 -r1.1.2.26
--- openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	27 Aug 2024 10:06:09 -0000	1.1.2.25
+++ openacs-4/packages/acs-tcl/tcl/test/utilities-procs.tcl	28 Aug 2024 14:27:00 -0000	1.1.2.26
@@ -76,6 +76,9 @@
             [ns_md file $tmpdir2/$tmpname] $checksum
         aa_equals "File '$tmpdir2/second-file.txt' was extracted correctly" \
             [ns_md file $tmpdir2/second-file.txt] $checksum2
+
+        file delete -force $tmpdir
+        file delete -force $tmpdir2
     }
 
 aa_register_case \