X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/57356b80cddd203086e932a09a8916a925cb8cf6..0bd6d68e34bc41cd80cd7fc44aab9cf3884de8dc:/tests/support/test.tcl

diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 91ab8117..480c674e 100644
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -53,7 +53,7 @@ proc assert_type {type key} {
 # executed.
 proc wait_for_condition {maxtries delay e _else_ elsescript} {
     while {[incr maxtries -1] >= 0} {
-        if {[uplevel 1 expr $e]} break
+        if {[uplevel 1 [list expr $e]]} break
         after $delay
     }
     if {$maxtries == -1} {