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 -N -r1.90.2.33 -r1.90.2.34
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Mar 2023 13:25:07 -0000	1.90.2.33
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Mar 2023 13:29:05 -0000	1.90.2.34
@@ -723,9 +723,13 @@
     return $cmd
 }
 
-ad_proc -public fs::get_archive_extension {} {
+ad_proc -deprecated fs::get_archive_extension {} {
     return the archive extension that should be added to the output file of
     an archive command
+
+    DEPRECATED: this is a trivial wrapper over the parameter api
+
+    @see parameter::get
 } {
     return [parameter::get -parameter ArchiveExtension -default "txt"]
 }