Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -r1.23.2.9 -r1.23.2.10
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	12 Sep 2022 14:38:13 -0000	1.23.2.9
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	12 Sep 2022 14:43:22 -0000	1.23.2.10
@@ -43,10 +43,12 @@
         return [db_string get_root_folder_select {} -default {}]
     }
 
-    ad_proc -public root_folder_map_p {
+    ad_proc -deprecated root_folder_map_p {
         {-package_id:required}
     } {
         @return 1 if the package_id has an fs_folder mapped to it
+
+        @see attachments::root_folder_p
     } {
         # this is a duplicate (Ben)
         return [root_folder_p -package_id $package_id]