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.125 -r1.126
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	1 Aug 2018 16:57:07 -0000	1.125
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	5 Aug 2018 21:06:48 -0000	1.126
@@ -662,7 +662,7 @@
 ad_proc -public site_node::get_url_from_object_id {
     {-object_id:required}
 } {
-    returns a list of urls for site_nodes that have the given object
+    Return a list of URLs for site_nodes that have the given object
     mounted or the empty list if there are none. The
     url:s will be returned in descending order meaning any children will
     come before their parents. This ordering is useful when deleting site nodes
@@ -693,7 +693,7 @@
         set url ""
     } else {
         if {[llength $urls] > 1} {
-            ad_log warning "get_node_id_from_object_id for object $object_id returns [llength $urls] urls, first one is returned"
+            ad_log warning "get_node_id_from_object_id for object $object_id returns [llength $urls] URLs, first one is returned"
         }
         set url [lindex $urls 0]
     }
@@ -857,7 +857,7 @@
     }
 
     # if we had filters or were getting a particular element then we
-    # have our results in return_val otherwise it's just urls
+    # have our results in return_val otherwise it's just URLs
     if { $element ne ""
          || [llength $filters] > 0} {
         return $return_val
@@ -1190,8 +1190,8 @@
             #
             # @method get_urls_from_object_id
             #
-            #    returns a list of urls for site_nodes that have the given
-            #    object mounted or the empty list if there are none. The urls
+            #    returns a list of URLs for site_nodes that have the given
+            #    object mounted or the empty list if there are none. The URLs
             #    will be returned in descending order meaning any children
             #    will come before their parents. This ordering is useful when
             #    deleting site nodes as we must delete child site nodes before
@@ -1741,7 +1741,7 @@
     ad_proc -public site_node::get_url_from_object_id {
         {-object_id:required}
     } {
-        returns a list of urls for site_nodes that have the given object
+        Returns a list of URLs for site_nodes that have the given object
         mounted or the empty list if there are none. The
         url:s will be returned in descending order meaning any children will
         come before their parents. This ordering is useful when deleting site nodes