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.32 -r1.90.2.33
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	16 Mar 2023 14:58:57 -0000	1.90.2.32
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	17 Mar 2023 13:25:07 -0000	1.90.2.33
@@ -703,6 +703,10 @@
     return the archive command after replacing {in_file} and {out_file} with
     their respective values.
 } {
+    if {[ad_conn package_key] ne "file-storage"} {
+        error "fs::get_archive_command must be called inside the file-storage"
+    }
+
     set cmd [parameter::get -parameter ArchiveCommand -default "tar cf - {in_file} | gzip > {out_file}"]
 
     regsub -all -- {(\W)} $in_file {\\\1} in_file