Index: openacs-4/packages/contacts/tcl/contacts-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-init.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/contacts/tcl/contacts-init.tcl	28 Jun 2005 20:20:50 -0000	1.9
+++ openacs-4/packages/contacts/tcl/contacts-init.tcl	28 Jun 2005 22:06:45 -0000	1.10
@@ -100,4 +100,18 @@
 
 }
 
+if {[empty_string_p [info procs application_link::get_linked]]} {
 
+    ns_log notice "CONTACTS: application_link::get_linked proc didn't exist so we are adding it here"
+    namespace eval application_link {}
+    ad_proc -public application_link::get_linked {
+	args
+    } {
+	Placeholder for contacts to work on 5.1
+    } {
+	return {}
+    }
+
+}
+
+