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 -N -r1.3 -r1.4
--- openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	30 Mar 2004 15:35:10 -0000	1.3
+++ openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	20 Apr 2004 21:13:53 -0000	1.4
@@ -122,7 +122,7 @@
     set xml [read $fp]
     close $fp
     ns_unlink -nocomplain $tmpfile
-
+    ns_log debug "\n-----tdav::read_xml XML = -----\n $xml \n ----- end ----- \n "
     return $xml
 }
 
@@ -1167,6 +1167,7 @@
 	    set response_body [encoding convertto utf-8 $response_body]
 	}
     }
+    ns_log debug "\n  ----- tdav::response response_body ----- \n $response_body \n ----- end ----- \n"
     ns_return $response_code $mime_type $response_body
 }
 
@@ -1409,6 +1410,7 @@
     
 
     set body [$d asXML -escapeNonASCII]
+    set body "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n${body}"
     set response [list $body {text/xml charset="utf-8"}]
     return $response