Warning: in local unknown procedure,
  in local unknown procedure,
  in toplevel unknown procedure:
  (srfi-18-signal-test.scm:62) in procedure call to `thread-join!', expected argument #1 of type

  (struct thread)

  but was given an argument of type

  (or (struct thread) (procedure () . *))