Index: openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	29 Jan 2006 16:13:24 -0000	1.21
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	25 Nov 2006 16:28:05 -0000	1.22
@@ -30,9 +30,7 @@
     ams::widgets_init
 
     if {[empty_string_p $package_id]} {
-	array set sn_array [site_node::get \
-				-url /contacts]
-	set contacts_package_id $sn_array(object_id)
+	set contacts_package_id [apm_package_id_from_key "contacts"]
     } else {
 	set contacts_package_id $package_id
     }