Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl	7 Aug 2017 23:48:30 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-avail-procs.tcl	22 Jul 2018 08:07:53 -0000	1.8
@@ -9,7 +9,7 @@
   proc ? {cmd expected {msg ""}} {
    set r [uplevel $cmd]
    if {$msg eq ""} {set msg $cmd}
-   aa_true $msg [expr {$r eq $expected}]
+   aa_true $msg {$r eq $expected}
    #if {$r ne $expected} {
    #  test errmsg "$msg returned '$r' ne '$expected'"
    #} else {