Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	7 Aug 2017 23:47:58 -0000	1.8
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	19 Jul 2018 12:16:20 -0000	1.9
@@ -87,7 +87,7 @@
 
             set main_subsite_id [subsite::main_site_id]
 
-            aa_true "Main subsite exists" [expr {$main_subsite_id ne ""}]
+            aa_true "Main subsite exists" {$main_subsite_id ne ""}
 
         }
 }