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.15 -r1.16
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	21 Jun 2005 17:26:57 -0000	1.15
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	21 Jun 2005 20:49:26 -0000	1.16
@@ -186,7 +186,7 @@
 } {
     create a contact revision
 } {
-    return "[ad_conn package_url]$party_id/"
+    return "[apm_package_url_from_id [apm_package_id_from_key "contacts"]]$party_id/"
 }
 
 ad_proc -public contact::revision::new {