Index: openacs-4/packages/oacs-dav/tcl/test/oacs-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/test/oacs-dav-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/oacs-dav/tcl/test/oacs-dav-procs.tcl	9 Jul 2018 12:03:33 -0000	1.5
+++ openacs-4/packages/oacs-dav/tcl/test/oacs-dav-procs.tcl	19 Jul 2018 12:26:39 -0000	1.6
@@ -21,7 +21,7 @@
 	    set sc_ops [db_list get_dav_ops ""]
 	    set valid_ops [list get put mkcol copy propfind proppatch move delete]
 	    foreach op_name $valid_ops {
-		aa_true "$op_name operation created" [expr {[lsearch $sc_ops $op_name] > -1}]
+		aa_true "$op_name operation created" {[lsearch $sc_ops $op_name] > -1}
 	    }
 
     	    aa_true "DAV put_type Service contract created" [expr [db_0or1row get_dav_pt_sc ""]]
@@ -68,9 +68,9 @@
 	    aa_log "Response was $response"
 	    set new_item_id [db_string item_exists "" -default ""]
 	    aa_log "Item_id=$new_item_id"
-	    aa_true "Content Item Created" [expr {$new_item_id ne ""}] 
+	    aa_true "Content Item Created" {$new_item_id ne ""} 
 	    set revision_id [db_string revision_exists "" -default ""]	    
-	    aa_true "Content Revision Created"  [expr {$revision_id ne ""}] 
+	    aa_true "Content Revision Created"  {$revision_id ne ""} 
 	    set cr_filename "[cr_fs_path]/[db_string get_content_filename ""]"
 	    aa_true "Content Attribute Set" {$tmpfilesize == [file size $cr_filename]}
 	    
@@ -105,7 +105,7 @@
 		aa_log "name $fname uri $uri"
 		set response [oacs_dav::impl::content_folder::mkcol]
 		set new_folder_id [db_string folder_exists "" -default ""]
-		aa_true "Content Folder $fname created" [expr {$new_folder_id ne ""}] 
+		aa_true "Content Folder $fname created" {$new_folder_id ne ""} 
 	    }
 	
 	}