diff --git a/tests/signal-tests.scm b/tests/signal-tests.scm
index b9e5f41..2c58b8d 100644
--- a/tests/signal-tests.scm
+++ b/tests/signal-tests.scm
@@ -33,14 +33,14 @@
 
 (define (child)
   (print "child started")
+  (set-signal-handler! signal/usr1 handler)
+  (set-signal-handler! signal/usr2 handler)   
+  (set-signal-handler! signal/term fini)   
   (thread-start! 
    (lambda ()
      (do () (#f)
        (thread-sleep! 0.5)
        (tick #\_))))
-  (set-signal-handler! signal/usr1 handler)
-  (set-signal-handler! signal/usr2 handler)   
-  (set-signal-handler! signal/term fini)   
   (do () (#f) 
     (thread-sleep! 1)
     (tick #\.)))
@@ -48,7 +48,7 @@
 (let ((pid (process-fork child))
       (sent1 0)
       (sent2 0))
-  (sleep 1)
+  (sleep 2)
   (print "sending signals to " pid)
   (do ((i 1000 (sub1 i)))
       ((zero? i))