Index: openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl,v
diff -u -N -r1.3 -r1.3.20.1
--- openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	15 Feb 2004 10:43:01 -0000	1.3
+++ openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	27 Aug 2013 11:44:43 -0000	1.3.20.1
@@ -14,7 +14,7 @@
         -rollback \
         -test_code {
             set header_result [apm_header]
-            aa_true "apm_header returns a non-null string?" [exists_and_not_null header_result]
+	    aa_true "apm_header returns a non-null string?" [expr {$header_result ne ""}]
         }
 }