diff --git a/test/bordeaux-threads-test.lisp b/test/bordeaux-threads-test.lisp
index ec3d81953624d8e889ae70b7dfd48f9b57ec53c2..e400910c272edda1d22d9f24824ceaf9cd44935b 100644
--- a/test/bordeaux-threads-test.lisp
+++ b/test/bordeaux-threads-test.lisp
@@ -43,12 +43,12 @@ Distributed under the MIT license (see LICENSE file)
                                 (setf (car box)
                                       (catch 'new-thread
                                         (sleep 60)
-                                        0))))))
+                                        'not-interrupted))))))
     (sleep 1)
     (interrupt-thread thread (lambda ()
-                               (throw 'new-thread 1)))
+                               (throw 'new-thread 'interrupted)))
     (join-thread thread)
-    (is (eql 1 (car box)))))
+    (is (eql 'interrupted (car box)))))
 
 (test should-lock-without-contention
   (with-fixture using-lock ()