Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/contacts/lib/contacts.tcl	25 Oct 2005 16:40:13 -0000	1.31
+++ openacs-4/packages/contacts/lib/contacts.tcl	14 Nov 2005 20:46:26 -0000	1.32
@@ -203,7 +203,7 @@
 
 if { ![exists_and_not_null attr_val_name] && [exists_and_not_null search_id] } {
 
-    set object_type [db_string get_object_type { select object_type from contact_searches where search_id = :search_id}]
+    set object_type [db_string get_object_type { }]
     switch $object_type {
 	person { 
 	    set default_attr_extend [parameter::get -parameter "DefaultPersonAttributeExtension"]