Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.110 -r1.111
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	11 Sep 2024 06:15:48 -0000	1.110
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 Oct 2024 12:51:44 -0000	1.111
@@ -246,7 +246,7 @@
                 lappend address_list [string tolower [parse_email_address -email $email]]
             }
 
-            array unset address_array
+            unset address_array
             # now get the user_names and user_ids
             foreach email $address_list {
                 set email [string tolower $email]
Index: openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	11 Sep 2024 06:15:48 -0000	1.17
+++ openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	8 Oct 2024 12:51:44 -0000	1.18
@@ -1264,8 +1264,8 @@
         }
         set i 0
         while { $i < $chunk_len && $pull_p && [clock seconds ] < $stop_cs } {
-            array unset h_arr
-            array unset p_arr
+            unset -nocomplain h_arr
+            unset -nocomplain p_arr
             set error_p 0
             set aml_email_id [lindex $chunk_ols $i]
             acs_mail_lite::inbound_queue_pull_one \