Index: openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	13 Nov 2024 08:42:39 -0000	1.21
+++ openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	26 Nov 2024 09:22:57 -0000	1.22
@@ -780,12 +780,8 @@
 
 proc tdav::filter_webdav_put {args} {
 
-    set fd [ad_opentmpfile tmpfile]
-    ns_writecontent $fd
-    close $fd
+    tdav::conn -set tmpfile [ns_getcontent -as_file 1 -binary 1]
 
-    tdav::conn -set tmpfile $tmpfile
-
     return filter_ok
 }
 
Index: openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	21 Oct 2024 13:37:42 -0000	1.21
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	26 Nov 2024 09:22:57 -0000	1.22
@@ -72,7 +72,7 @@
         }
 
         fconfigure $fp -translation binary
-        ns_conncptofp $fp
+        ns_conn copy 0 [ns_conn contentlength] $fp
         close $fp
 
         set fp [open $filename r]