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]
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.48 -r1.49
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	26 Jun 2015 20:25:13 -0000	1.48
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	27 Jun 2015 20:17:07 -0000	1.49
@@ -1534,7 +1534,7 @@
         } else {
             set extra_actions ""
         }
-        lappend related_files_list [subsr {$related_title
+        lappend related_files_list [subst {$related_title
 	    <a href="[ns_quotehtml $view_url]">download</a> |
 	    <a href="[ns_quotehtml $properties_url]">properties</a>$extra_actions
 	}]