Index: openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl,v
diff -u -r1.24.2.3 -r1.24.2.4
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	8 Oct 2019 16:31:45 -0000	1.24.2.3
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	10 Mar 2021 11:08:47 -0000	1.24.2.4
@@ -409,9 +409,11 @@
 
     } else {
         # get content type of existing item
-        set content_type \
-            [oacs_dav::conn -set content_type \
-                 [db_string get_content_type "" -default "content_revision"]]
+        set content_type [content::item::get_content_type -item_id $item_id]
+        if {$content_type eq ""} {
+            set content_type "content_revision"
+        }
+        set content_type [oacs_dav::conn -set content_type $content_type]
     }
     # use content type
     # i think we should walk up the object type hierarchy up to