Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.90.2.29 -r1.90.2.30
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	15 Feb 2023 17:00:52 -0000	1.90.2.29
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	24 Feb 2023 13:50:40 -0000	1.90.2.30
@@ -1543,12 +1543,14 @@
 
 namespace eval fs::notification {}
 
-ad_proc -public fs::notification::get_url {
+ad_proc -private fs::notification::get_url {
     object_id:required
 } {
-    returns a full url to the object_id.
-    handles folders
+    This proc implements the GetURL operation of the NotificationType
+    Service Contract and should not be invoked directly.
 
+    @return a full URL to the object_id. Handles folders.
+
     @param object_id
 
     @author Stan Kaufman (skaufman@epimetrics.com)