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.18 -r1.19
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	27 Mar 2018 12:22:17 -0000	1.18
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	7 Apr 2018 11:38:36 -0000	1.19
@@ -131,9 +131,9 @@
     set image_name "email${user_id}.gif"
     set email_length [string length $email]
     set dest_path "/tmp/$image_name"
-    set width [expr [expr {$email_length * [expr {$font_size / 2}]}] + 2]
+    set width [expr {($email_length * ($font_size / 2)) + 2}]
     set height $font_size
-    set ypos [expr {[expr {$height / 2}] + 3 }]
+    set ypos [expr { ($height / 2) + 3 }]
     set size "${width}x$height"
 
     if {$bgcolor eq ""} {
@@ -214,9 +214,9 @@
     set image_name "email${user_id}.gif"
     set email_length [string length $new_email]
     set dest_path "/tmp/$image_name"
-    set width [expr [expr {$email_length * [expr {$font_size / 2}]}] + 2]
+    set width [expr {($email_length * ($font_size / 2)) + 2}]
     set height $font_size
-    set ypos [expr {[expr {$height / 2}] + 3 }]
+    set ypos [expr { ($height / 2) + 3 }]
     set size "${width}x$height"
 
     if {$bgcolor eq ""} {