Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/contacts/lib/contacts.tcl	17 Nov 2005 16:23:45 -0000	1.34
+++ openacs-4/packages/contacts/lib/contacts.tcl	17 Nov 2005 18:22:02 -0000	1.35
@@ -213,7 +213,7 @@
 
 if { ![exists_and_not_null attr_val_name] && [exists_and_not_null search_id] } {
 
-    set object_type [db_string get_search_object_type { }]
+    set object_type [db_string get_object_type { }]
     switch $object_type {
 	person { 
 	    set default_attr_extend [parameter::get -parameter "DefaultPersonAttributeExtension"]