Index: openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	11 Sep 2024 06:15:48 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/html-email-procs.tcl	25 Nov 2024 13:20:00 -0000	1.24
@@ -81,7 +81,7 @@
     # the first three lines of the message are special; we need to grab
     # the info, add it to the message headers, and discard the lines
     set lines [split $mime_body \n]
-    set message_data [ns_set new]
+    set message_data [ns_set create]
 
     # get mime version
     regexp {MIME-Version: (.*)} [lindex $lines 0] junk mime_version