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.2 -r1.3
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	16 Feb 2004 18:59:17 -0000	1.2
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	20 Feb 2004 00:08:25 -0000	1.3
@@ -268,7 +268,7 @@
     ad_conn -reset
     set uri [ns_conn url]
     set dav_url_regexp "^[oacs_dav::uri_prefix]"
-    set uri [regsub $dav_url_regexp $uri {}]
+    regsub $dav_url_regexp $uri {} uri
     oacs_dav::conn -set uri $uri
     set method [ns_conn method]
     oacs_dav::set_user_id
@@ -284,7 +284,7 @@
     }
     regsub {http://[^/]+/} $destination {/} dest
     ns_log notice "DEST = $dest"
-    set dest [regsub $dav_url_regexp $dest {}]
+    regsub $dav_url_regexp $dest {} dest
     oacs_dav::conn -set destination $dest
     if {![empty_string_p $dest]} {
 	oacs_dav::conn -set dest_parent_id [oacs_dav::item_parent_folder_id $dest]