Index: openacs-4/packages/dotlrn/tcl/spam-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/spam-procs.tcl,v
diff -u -r1.13.2.3 -r1.13.2.4
--- openacs-4/packages/dotlrn/tcl/spam-procs.tcl	24 Feb 2021 11:02:52 -0000	1.13.2.3
+++ openacs-4/packages/dotlrn/tcl/spam-procs.tcl	24 Feb 2021 11:13:53 -0000	1.13.2.4
@@ -82,7 +82,7 @@
             lappend values \{email\} "$email"
             lappend values \{first_names\} "$first_names"
             lappend values \{last_name\} "$last_name"
-            lappend values \{from\} "$from"
+            lappend values \{from_addr\} "$from"
 
             set subject [string map $values $subject]
             set message [string map $values $message]