1 files changed, 2 insertions, 1 deletions

diff --git a/src/eval.c b/src/eval.c
index 897e543adf4..7a3a923e0da 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -746,7 +746,8 @@ until TEST returns nil.")
 
   test = Fcar (args);
   body = Fcdr (args);
-  while (tem = Feval (test), !NILP (tem))
+  while (tem = Feval (test),
+         (!EQ (Vmocklisp_arguments, Qt) ? XINT (tem) : !NILP (tem)))
     {
       QUIT;
       Fprogn (body);