Index: openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	11 Sep 2002 14:03:25 -0000	1.1
+++ openacs-4/packages/bug-tracker/www/map-patch-to-bugs.tcl	13 Sep 2002 10:43:58 -0000	1.2
@@ -58,7 +58,7 @@
 }
 set component_where_clause ""
 set component_filter ""
-if { ![empty_string_p component_id] } {
+if { ![empty_string_p $component_id] } {
     set component_name [db_string component_name "select component_name from bt_components where component_id = :component_id"]
     set component_filter_url "map-patch-to-bugs?[export_vars -url {patch_number component_id return_url offset show_only_open_p interval_size}]"
     if { $show_all_components_p } {