Index: openacs-4/packages/acs-tcl/tcl/application-link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-link-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/application-link-procs.tcl	4 Oct 2005 11:23:03 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/application-link-procs.tcl	4 Jun 2006 00:45:47 -0000	1.4
@@ -12,8 +12,13 @@
     -this_package_id:required
     -target_package_id:required
 } {
-    set user_id [ad_conn user_id]
-    set id_addr [ad_conn peeraddr]
+    if {[catch {ad_conn user_id} user_id]} {
+	set user_id 0
+    }
+    
+    if {[catch {ad_conn peeraddr} id_addr]} {
+	set id_addr 127.0.0.1
+    }
 
     set result [db_exec_plsql create_forward_link {}]
     db_exec_plsql create_backward_link {}