Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/search/tcl/search-procs.tcl	16 Nov 2006 12:43:40 -0000	1.38
+++ openacs-4/packages/search/tcl/search-procs.tcl	10 Jan 2007 21:22:14 -0000	1.39
@@ -24,8 +24,8 @@
 
     @author Jeff Davis (davis@xarg.net)
 } {
-    if {![empty_string_p $object_id]
-        && ![empty_string_p $event]} {
+    if {$object_id ne ""
+        && $event ne ""} {
         package_exec_plsql \
             -var_list [list \
                            [list object_id $object_id] \
@@ -49,9 +49,9 @@
 
     @author Jeff Davis (davis@xarg.net)
 } {
-    if {![empty_string_p $object_id]
-        && ![empty_string_p $event_date]
-        && ![empty_string_p $event]} {
+    if {$object_id ne ""
+        && $event_date ne ""
+        && $event ne ""} {
             package_exec_plsql \
                 -var_list [list [list object_id $object_id] \
                                [list event_date $event_date] \
@@ -266,7 +266,7 @@
     set return_list [list]
 
     foreach value $values {
-        if {[string compare $default $value] == 0} {
+        if {$default eq $value } {
             lappend return_list "<font color=\"\#a90a08\"><strong>[lindex $items $count]</strong></font>"
         } else {
             lappend return_list "<a href=\"[lindex $links $count]\"><font color=\"\#000000\">[lindex $items $count]</font></a>"