Index: openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl,v
diff -u -N -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	30 Nov 2004 20:34:12 -0000	1.1.2.3
+++ openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	3 Dec 2004 00:43:50 -0000	1.1.2.4
@@ -71,8 +71,6 @@
 
     acs_sc::impl::new_from_spec -spec $spec
 
-    ### dav_mkcol_type
-
     set spec {
 	name "file-storage"
 	aliases {
@@ -81,17 +79,6 @@
 	contract_name {dav_mkcol_type}
 	owner "file-storage"
     }
-    
-    acs_sc::impl::new_from_spec -spec $spec
-    
-    set spec {
-	name "file-storage"
-	aliases {
-	    get_type fs::impl::dav_mkcol_type::get_type
-	}
-	contract_name {dav_mkcol_type}
-	owner "file-storage"
-    }
 
     acs_sc::impl::new_from_spec -spec $spec
 }
@@ -132,4 +119,4 @@
 	    }
 	}
 
-}
\ No newline at end of file
+}