Index: openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl	7 Aug 2017 23:47:47 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/test/content-search-procs.tcl	19 Jul 2018 12:16:20 -0000	1.5
@@ -76,12 +76,12 @@
 			     -parent_id $folder_id \
 			     -is_live f]
 	    # make sure the item exists first
-	    aa_true "Item exists" [expr {[content::item::get_id \
+	    aa_true "Item exists" {[content::item::get_id \
 					      -item_path $item_name \
 					      -root_folder_id $folder_id] \
-					     ne ""}]
-	    aa_true "Item is NOT live" [expr {[content::item::get_live_revision \
-						   -item_id $item_id] eq ""}]
+					     ne ""}
+	    aa_true "Item is NOT live" {[content::item::get_live_revision \
+						   -item_id $item_id] eq ""}
 	    aa_true "But a revision exists" \
 		[expr \
 		     {[set latest_revision \