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.80 -r1.81
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	2 Aug 2007 11:10:26 -0000	1.80
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	21 Aug 2007 13:52:07 -0000	1.81
@@ -388,7 +388,9 @@
             # save new url
             set url_by_node_id($node_id) $url
             if { $object_id ne "" } {
-                lappend url_by_object_id($object_id) $url
+		if {[lsearch $url_by_object_id($object_id) $url] < 0} {
+		    lappend url_by_object_id($object_id) $url
+		}
             }
             if { $package_key ne "" } {
                 lappend url_by_package_key($package_key) $url