Index: openacs-4/packages/bug-tracker/www/send-summary-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/send-summary-email.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/www/send-summary-email.tcl	29 May 2008 15:01:08 -0000	1.1
+++ openacs-4/packages/bug-tracker/www/send-summary-email.tcl	14 Oct 2013 18:14:22 -0000	1.2
@@ -19,7 +19,7 @@
 set user_id [auth::require_login]
 set sender_email [acs_user::get_element -user_id $user_id -element email]
 
-if {![exists_and_not_null return_url]} {
+if {(![info exists return_url] || $return_url eq "")} {
     set return_url "./"
 }
 
@@ -70,7 +70,7 @@
 
     set p_keyword_id 0
     foreach {keyword_id keyword_label} [bug_tracker::category_types -package_id $package_id] {
-        if {[string equal $keyword_label "[_ bug-tracker.Priority]"]} {
+        if {$keyword_label eq "[_ bug-tracker.Priority]"} {
             set p_keyword_id $keyword_id
         }
     }
@@ -94,7 +94,7 @@
     set final_recipient_list [list]
     foreach one_email [split $recipient_list " "] {
       set one_email [string trim $one_email]
-      if {![string equal $one_email {}]} {
+      if {$one_email ne "" } {
            lappend final_recipient_list $one_email
       }
     }
@@ -111,7 +111,7 @@
 
 if { [form is_request bug] } {
     foreach field {success_inform_text_stub errors_inform_text_stub} {
-        if {[string equal [set $field] {}]} {
+        if {[set $field] eq ""} {
             element set_properties bug $field -widget hidden
         }
     }