Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl	15 Jun 2008 19:37:01 -0000	1.2
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-scheduled-procs.tcl	14 Oct 2013 18:14:22 -0000	1.3
@@ -17,7 +17,7 @@
 } {
 } {
     set bt_instance [parameter::get -parameter BugTrackerInstance -package_id [ad_acs_kernel_id] -default {}]
-    if {![empty_string_p $bt_instance]} {
+    if {$bt_instance ne ""} {
 	array set community_info [site_node::get -url "${bt_instance}/bug-tracker"]
 	set bt_package_id $community_info(package_id)
 	db_foreach open_bug { *SQL* } {
@@ -26,11 +26,11 @@
 			     -workflow_short_name [bug_tracker::bug::workflow_short_name]]
 	    workflow::case::fsm::get -case_id $case_id -array case
 	    set time_to_compare_with [parameter::get -parameter TimeToLive -package_id $bt_package_id -default 0]
-	    if { [string eq $case(state_short_name) "open"] && $time_to_compare_with > 0 && [db_string too_old {} -default 0] } {
+	    if { $case(state_short_name) eq "open" && $time_to_compare_with > 0 && [db_string too_old {} -default 0] } {
 		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) "resolve"] } {
+		    if {$available_action(short_name) eq "resolve"} {
 			set action_id $enabled_action(action_id)
 			array set row [list]
 			foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {
@@ -50,7 +50,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) "close"] } {
+		    if {$available_action(short_name) eq "close"} {
 			set action_id $enabled_action(action_id)
 			array set row [list]
 			foreach field [workflow::action::get_element -action_id $action_id -element edit_fields] {