Index: openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl	17 Sep 2018 13:28:47 -0000	1.5
+++ openacs-4/packages/xml-rpc/tcl/test/xml-rpc-test-procs.tcl	19 Jul 2019 09:14:31 -0000	1.6
@@ -10,7 +10,7 @@
     Test to make sure the xml-rpc package has been mounted
 } {
     aa_run_with_teardown -rollback -test_code {
-        aa_false "XML-RPC url not null" [empty_string_p [xmlrpc::url]]
+        aa_false "XML-RPC url not null" {[xmlrpc::url] eq ""}
     }
 }