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 -N -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	7 Aug 2017 23:47:58 -0000	1.15
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	1 Oct 2017 12:16:05 -0000	1.16
@@ -61,7 +61,7 @@
         set priv_level $user_level
     }
     set send_email_url [ns_quotehtml "/shared/send-email?sendto=$user_id&return_url=$return_url"]
-    switch $priv_level {
+    switch -- $priv_level {
         "4" {
             return [subst {<a href="mailto:$email" title="#acs-subsite.Send_email_to_this_user#">$email</a>}]
         }