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.3.2.1 -r1.3.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl	30 Mar 2004 04:03:19 -0000	1.3.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl	31 Mar 2004 02:35:32 -0000	1.3.2.2
@@ -40,6 +40,7 @@
         name "file_storage_object"
         aliases {
             get fs::impl::fs_object::get
+            head fs::impl::fs_object::head	    
             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.3.2.1 -r1.3.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	30 Mar 2004 04:03:19 -0000	1.3.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	31 Mar 2004 02:35:32 -0000	1.3.2.2
@@ -18,6 +18,12 @@
     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::put {} {
     PUT method
 } {