diff --git a/irteus/test/irteus-demo.l b/irteus/test/irteus-demo.l
index d6dff0de6..99b8317a7 100644
--- a/irteus/test/irteus-demo.l
+++ b/irteus/test/irteus-demo.l
@@ -3,7 +3,7 @@
 (init-unit-test)
 
 (load "irteus/demo/demo.l")
-(defmacro do-until-key (&rest forms) (with-gensyms (do-until-key-counter tm) `(progn (setq tm (instance mtimer :init)) (dotimes (do-until-key-counter 10) (warning-message 2 ";; do-until-key ~7,3f ~A/~A~%" (send tm :stop) do-until-key-counter 10) ,@forms))))
+(defmacro do-until-key (&rest forms) (with-gensyms (do-until-key-counter tm) `(progn (setq tm (instance mtimer :init)) (dotimes (do-until-key-counter 10) ,@forms))))
 
 (deftest test-full-body-ik
   (full-body-ik :debug-view nil))