Index: openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl	26 Jan 2017 10:00:51 -0000	1.1
+++ openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl	7 Apr 2018 11:23:09 -0000	1.2
@@ -145,7 +145,7 @@
   } {
     Get the level that encompasses the result.
   } {
-    if {[expr {$result < 0}] || [expr {$result > 100}]} {
+    if {$result < 0 || $result > 100} {
       ns_log Warning "Result must be within 0 and 100"
       return -1
     }