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.18 -r1.4.2.19
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	21 May 2004 15:34:49 -0000	1.4.2.18
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	27 Sep 2004 19:12:40 -0000	1.4.2.19
@@ -307,7 +307,7 @@
 
     set destination [ns_urldecode [ns_set iget [ns_conn headers] Destination]]
 
-    regsub {http://[^/]+/} $destination {/} dest
+    regsub {(http|https)://[^/]+/} $destination {/} dest
 
      regsub $dav_url_regexp $dest {} dest