diff --git a/test.lisp b/test.lisp
index 24332a0..3e3ffbc 100644
--- a/test.lisp
+++ b/test.lisp
@@ -283,7 +283,7 @@
 	(assert (equal (read-line socket) "(echo test)")))))
 
   #+clozure-common-lisp
-  (deftests read-deadline (usp nil t)
+  (deftests read-deadline (usp nil t :caller)
     (with-thread ("echo server for deadline test"
 		  (lambda () (init-server :unwrap-stream-p usp))
 		  #'test-server)