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.28 -r1.90.2.29
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	27 Nov 2022 10:52:26 -0000	1.90.2.28
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	15 Feb 2023 17:00:52 -0000	1.90.2.29
@@ -170,7 +170,9 @@
 } {
     set folder_id [fs::get_root_folder -package_id $package_id]
 
-    oacs_dav::register_folder -enabled_p "t" $folder_id $node_id
+    if {[apm_package_installed_p oacs-dav]} {
+        oacs_dav::register_folder -enabled_p "t" $folder_id $node_id
+    }
 }
 
 ad_proc -private fs::before_unmount {
@@ -182,7 +184,9 @@
 } {
     set folder_id [fs::get_root_folder -package_id $package_id]
 
-    oacs_dav::unregister_folder $folder_id $node_id
+    if {[apm_package_installed_p oacs-dav]} {
+        oacs_dav::unregister_folder $folder_id $node_id
+    }
 }
 
 ad_proc -public fs::new_root_folder {
@@ -1238,7 +1242,7 @@
 } {
 
     if {![fs::webdav_p]} {
-        return "ho"
+        return ""
     }
     if {$package_id eq ""} {
         set package_id [ad_conn package_id]