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.3 -r1.4
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	18 May 2005 16:45:49 -0000	1.3
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	25 May 2005 02:09:52 -0000	1.4
@@ -124,7 +124,7 @@
 } {
     create a contact revision
 } {
-    return [export_vars -url -base contact {party_id}]
+    return "[ad_conn package_url]$party_id/"
 }
 
 ad_proc -public contact::revision::new {