Index: openacs-4/packages/contacts/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/contacts/www/index.tcl	21 Jun 2007 20:06:42 -0000	1.27
+++ openacs-4/packages/contacts/www/index.tcl	21 Jun 2007 21:11:27 -0000	1.28
@@ -123,19 +123,21 @@
 	}
     }
 }
+
 if { [contact::group::mapped_p -group_id $search_id] && $contacts_total_count > 0 } {
     set group [contact::group::name -group_id $search_id]
     set label [_ contacts.Mail_group]
     append form_elements {
 	{mail_merge_group:text(submit) {label $label} {value "1"}}
     }
 }
+
 ad_form -name "search" -method "GET" -export {orderby page_size format extended_columns return_url} -form $form_elements \
     -on_request {
     } -edit_request {
     } -on_refresh {
     } -on_submit {
-	if { ![empty_string_p $mail_merge_group] } {
+	if { [exists_and_not_null mail_merge_group] } {
 	    ad_returnredirect [export_vars -base "message" -url {{group_id $search_id}}]
 	    ad_script_abort
 	}