Index: openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl	17 May 2018 14:42:03 -0000	1.6
+++ openacs-4/packages/acs-content-repository/tcl/test/acs-content-repository-procs.tcl	19 Jul 2018 12:16:20 -0000	1.7
@@ -22,10 +22,10 @@
             # retrieve the parent's child
 
             set new_keyword_id [content::keyword::new -heading $name]
-            aa_true "created a new content_keyword" [expr {[info exists new_keyword_id] && $new_keyword_id ne ""}]
+            aa_true "created a new content_keyword" {[info exists new_keyword_id] && $new_keyword_id ne ""}
 
             set new_keyword_id_2 [content::keyword::new -heading $name_2 -parent_id $new_keyword_id]
-            aa_true "created a child content_keyword" [expr {[info exists new_keyword_id_2] && $new_keyword_id_2 ne ""}]
+            aa_true "created a child content_keyword" {[info exists new_keyword_id_2] && $new_keyword_id_2 ne ""}
 
             set children [content::keyword::get_children -parent_id $new_keyword_id ]
             aa_true "child is returned" [string match "*$new_keyword_id_2*" $children]