Index: openacs-4/packages/bug-tracker/www/related-file-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/related-file-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/www/related-file-delete.tcl	8 Mar 2011 19:51:03 -0000	1.2
+++ openacs-4/packages/bug-tracker/www/related-file-delete.tcl	14 Oct 2013 18:14:22 -0000	1.3
@@ -24,7 +24,7 @@
     ad_script_abort
 }
 
-if {![exists_and_not_null return_url]} {
+if {(![info exists return_url] || $return_url eq "")} {
     set return_url [export_vars -base "bug" {bug_number}]
 }
 
@@ -58,7 +58,7 @@
                 foreach available_enabled_action_id [workflow::case::get_available_enabled_action_ids -case_id $case_id] {
                     workflow::case::enabled_action_get -enabled_action_id $available_enabled_action_id -array enabled_action
                     workflow::action::get -action_id $enabled_action(action_id) -array available_action
-                    if { [string eq $available_action(short_name) "comment"] } {
+                    if {$available_action(short_name) eq "comment"} {
                         set action_id $enabled_action(action_id)
                         array set row [list]
                         foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {