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.15 -r1.16
--- openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	29 Mar 2018 17:28:50 -0000	1.15
+++ openacs-4/packages/oacs-dav/tcl/tDAV-procs.tcl	25 Apr 2018 19:47:47 -0000	1.16
@@ -457,7 +457,7 @@
 
 proc tdav::get_fs_props {} {
 #    global fs_props
-    set fs_props [list]
+    set fs_props {}
     
 #    lappend fs_props [list ns0 supportlock] {subst {"<none/>"}}
     lappend fs_props [list ns0 getcontenttype] {subst {[ns_guesstype $filename]}}
@@ -534,7 +534,7 @@
     
     set setl [$xd getElementsByTagName "*set"]
     set rml [$xd getElementsByTagName "*remove"]
-    set prop_req [list]
+    set prop_req {}
     foreach node $rml {
 	set p [[$node childNodes] childNodes]
 	# we use localname because we always resolve the URI namespace
@@ -627,7 +627,7 @@
 #     {namespace name} value.
 
 proc tdav::webdav_propfind {} {
-    set props [list]
+    set props {}
     set uri [ns_conn url]
     set depth [tdav::conn depth]
     set prop_req [tdav::conn prop_req]
@@ -691,7 +691,7 @@
 
 proc tdav::update_user_props {uri prop_req} {
     array set props [tdav::dbm_read_list $uri]
-    set status [list]
+    set status {}
     foreach {action i} $prop_req {
 	set k [lindex $i 0]
 	set value [lindex $i 1]
@@ -737,7 +737,7 @@
 #     prop_req is a list of lists of namespace/name pairs
 
 proc tdav::filter_webdav_propfind {args} {
-    set prop_req [list]
+    set prop_req {}
     set depth [ns_set iget [ns_conn headers] Depth]
     tdav::conn -set depth $depth
 
@@ -756,7 +756,7 @@
 	return filter_return
     }
     
-    set xml_prop_list [list]
+    set xml_prop_list {}
 
     if {[info exists xd] && "" ne $xd } {
 	set prop [$xd getElementsByTagNameNS "DAV:" "prop"]