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.4.2.7 -r1.4.2.8
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	1 Apr 2004 04:39:37 -0000	1.4.2.7
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	5 Apr 2004 17:12:03 -0000	1.4.2.8
@@ -633,9 +633,6 @@
     set depth [oacs_dav::conn depth]
     set folder_uri [ad_url][ad_conn url]
     # if client didn't put a / on folder_uri go ahead and tack it on
-    if {![string match */ $folder_uri]} {
-	append folder_uri "/"
-    }
     if {[empty_string_p $depth]} {
 	set depth 0
     }
@@ -655,6 +652,8 @@
 	ns_log debug "DAVEB item_id $item_id folder_id $folder_id $item_uri"
 	if {$item_id == $folder_id} {
 	    set item_uri ""
+	} else {
+	    set item_uri "/${item_uri}"
 	}
 	
 	lappend properties [list "D" "getcontenttype"] $mime_type
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.2.2.1 -r1.2.2.2
--- openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	31 Mar 2004 01:48:31 -0000	1.2.2.1
+++ openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	5 Apr 2004 17:12:03 -0000	1.2.2.2
@@ -1167,6 +1167,7 @@
 	    set response_body [encoding convertto utf-8 $response_body]
 	}
     }
+
     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