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.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"]
 }
Index: openacs-4/packages/file-storage/www/download-archive/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download-archive/index.vuh,v
diff -u -r1.8.2.2 -r1.8.2.3
--- openacs-4/packages/file-storage/www/download-archive/index.vuh	30 Nov 2022 08:18:14 -0000	1.8.2.2
+++ openacs-4/packages/file-storage/www/download-archive/index.vuh	17 Mar 2023 13:29:05 -0000	1.8.2.3
@@ -13,7 +13,7 @@
 
 if {[info exists object_id] && $object_id ne ""} {
     set download_name [fs::get_file_system_safe_object_name -object_id $object_id]
-    set ext [fs::get_archive_extension]
+    set ext [parameter::get -parameter ArchiveExtension -default "txt"]
     if {$ext ne ""} {
         append download_name ".${ext}"
     }