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.20 -r1.21
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	25 Apr 2018 19:47:47 -0000	1.20
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.tcl	9 May 2018 15:33:33 -0000	1.21
@@ -751,7 +751,7 @@
 } {
     set user_id [oacs_dav::conn user_id]
     set depth [oacs_dav::conn depth]
-    set encoded_uri {}
+    set encoded_uri [list]
     foreach fragment [split [ad_conn url] "/"] {
         lappend encoded_uri [oacs_dav::urlencode $fragment]
     }   
@@ -772,22 +772,22 @@
     set folder_id [oacs_dav::conn item_id]
 
     # append the properties into response
-    set all_properties {}
+    set all_properties [list]
     # hack to get the OS time zone to tack on the end of oracle timestamps
     # until we stop supporting oracle 8i
     set os_time_zone [clock format [clock seconds] -format %Z]
     db_foreach get_properties "" {
         set name $name
         set etag "1f9a-400-3948d0f5"
-        set properties {}
+        set properties [list]
         # is "D" the namespace??
         lappend properties [list "D" "getcontentlength"] $content_length
 
 #       ns_log debug "\nDAVEB item_id $item_id folder_id $folder_id $item_uri"
         if {$item_id == $folder_id} {
             set item_uri "/"
         } else {
-            set encoded_uri {}
+            set encoded_uri [list]
             foreach fragment [split $item_uri "/"] {
                 lappend encoded_uri [oacs_dav::urlencode $fragment]
 #               ns_log debug "\npropfind: fragment \"$fragment\" encoded_uri \"$encoded_uri\" "
@@ -1006,7 +1006,7 @@
     # find the values
     db_1row get_properties ""
     set etag "1f9a-400-3948d0f5"
-    set properties {}
+    set properties [list]
     # is "D" the namespace??
     lappend properties [list "D" "getcontentlength"] $content_length
 #    lappend properties [list "D" "uri"] $item_uri