Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	20 Sep 2005 07:09:10 -0000	1.31
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	5 Oct 2005 16:18:49 -0000	1.32
@@ -566,7 +566,7 @@
 } {
     
     if {[empty_string_p $contacts_package_id]} {
-	set contacts_package_id [ad_conn contacts_package_id]
+	set contacts_package_id [ad_conn package_id]
     }
 
     if {[empty_string_p $group_id]} {