Index: openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	22 Jun 2015 21:03:12 -0000	1.13
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	27 Jun 2015 20:17:07 -0000	1.14
@@ -63,7 +63,7 @@
     set send_email_url [ns_quotehtml "/shared/send-email?sendto=$user_id&return_url=$return_url"]
     switch $priv_level {
         "4" {
-            return [subsr {<a href="mailto:$email" title="#acs-subsite.Send_email_to_this_user#">$email</a>}]
+            return [subst {<a href="mailto:$email" title="#acs-subsite.Send_email_to_this_user#">$email</a>}]
         }
         "3" {
             set email_image_id [email_image::get_related_item_id -user_id $user_id]