Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl	17 Jun 2010 18:51:45 -0000	1.3
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-callback-procs.tcl	14 Oct 2013 18:14:22 -0000	1.4
@@ -42,7 +42,7 @@
         set package_id [lindex $package_id_list 0]
         
         set user_id [party::get_by_email -email $email(from)]
-        if {[string equal $user_id ""]} {
+        if {$user_id eq ""} {
             # spam control
             return ""
         } elseif {![permission::permission_p -party_id $user_id -object_id $package_id -privilege create -no_login]} {
@@ -67,7 +67,7 @@
         if {[llength $components_list] == 0} {
             set component_id {}
         } else {
-            set component_id [lindex [lindex $components_list 0] 1]
+            set component_id [lindex $components_list 0 1]
         }
         set found_in_version {}
         if {[llength $email(subject)] == 1} {