Index: openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/Attic/file-storage-dav-install-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl	30 Mar 2004 13:12:08 -0000	1.4
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl	21 Apr 2004 12:02:46 -0000	1.5
@@ -40,6 +40,9 @@
         name "file_storage_object"
         aliases {
             get fs::impl::fs_object::get
+            head fs::impl::fs_object::head
+            lock fs::impl::fs_object::lock
+            unlock fs::impl::fs_object::unlock
             put fs::impl::fs_object::put
 	    propfind fs::impl::fs_object::propfind
 	    delete fs::impl::fs_object::delete
Index: openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	30 Mar 2004 13:12:08 -0000	1.4
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	21 Apr 2004 12:02:46 -0000	1.5
@@ -18,6 +18,24 @@
     return [oacs_dav::impl::content_revision::get]
 }
 
+ad_proc fs::impl::fs_object::head {} {
+    HEAD method
+} {
+    return [oacs_dav::impl::content_revision::head]
+}
+
+ad_proc fs::impl::fs_object::lock {} {
+    LOCK method
+} {
+    return [oacs_dav::impl::content_revision::lock]
+}
+
+ad_proc fs::impl::fs_object::unlock {} {
+    UNLOCK method
+} {
+    return [oacs_dav::impl::content_revision::unlock]
+}
+
 ad_proc fs::impl::fs_object::put {} {
     PUT method
 } {