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.6 -r1.6.10.1
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	21 Jan 2008 16:42:56 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	27 Aug 2013 12:20:37 -0000	1.6.10.1
@@ -87,7 +87,7 @@
 
             set main_subsite_id [subsite::main_site_id]
 
-            aa_true "Main subsite exists" [exists_and_not_null main_subsite_id]
+            aa_true "Main subsite exists" [expr {$main_subsite_id ne ""}]
 
         }
 }