Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.66 -r1.67
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	12 Aug 2018 12:30:06 -0000	1.66
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	26 Nov 2024 09:23:38 -0000	1.67
@@ -1313,7 +1313,7 @@
 	foreach file $email(files) {
 	    set file_title [lindex $file 2]
 	    set mime_type [lindex $file 0]
-	    set file_path [ns_tmpnam]
+	    set file_path [ns_mktemp]
 	    set f [open $file_path w+]
             fconfigure $f -translation binary
             puts -nonewline $f [lindex $file 3]