Index: openacs-4/packages/chat/www/search-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search-3.tcl,v
diff -u -N -r1.1 -r1.1.2.1
--- openacs-4/packages/chat/www/search-3.tcl	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/search-3.tcl	20 Jun 2006 00:28:20 -0000	1.1.2.1
@@ -6,7 +6,7 @@
     party_id:integer,notnull
 }
 
-if {[string equal $type "user"] == 1} {
+if {$type eq "user"} {
   ad_require_permission $room_id chat_user_grant
   chat_user_grant $room_id $party_id
 } else {