Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/dotlrn/www/spam.tcl	15 May 2009 22:38:13 -0000	1.29
+++ openacs-4/packages/dotlrn/www/spam.tcl	29 Sep 2013 13:49:45 -0000	1.30
@@ -173,7 +173,7 @@
     set who_will_receive_this_clause ""
 
     set community_name [dotlrn_community::get_community_name $community_id]
-    set community_url "[ad_parameter -package_id [ad_acs_kernel_id] SystemURL][dotlrn_community::get_community_url $community_id]"
+    set community_url "[parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL][dotlrn_community::get_community_url $community_id]"
 
     if { ![empty_string_p $recipients_str] } {
 	set recipients_str [join [split $recipients_str] ,]