Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -N -r1.81 -r1.82
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	21 Aug 2007 13:52:07 -0000	1.81
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	21 Aug 2007 13:58:19 -0000	1.82
@@ -388,8 +388,12 @@
             # save new url
             set url_by_node_id($node_id) $url
             if { $object_id ne "" } {
-		if {[lsearch $url_by_object_id($object_id) $url] < 0} {
-		    lappend url_by_object_id($object_id) $url
+		if {[info exists url_by_object_id($object_id)]} {
+		    if {[lsearch $url_by_object_id($object_id) $url] < 0} {
+			lappend url_by_object_id($object_id) $url
+		    }
+		} else {
+		    set url_by_object_id($object_id) $url
 		}
             }
             if { $package_key ne "" } {