MT segfault caused by stack overflow

[<don...@is...>]

[1]> (defun f()(f))
F
[2]> (f)

*** - Lisp stack overflow. RESET
[3]> (mt:make-thread (lambda()(sleep 99)) :name "wait")
#<THREAD "wait">
[4]> (f)

*** - Lisp stack overflow. RESET
[5]> (mt::list-threads)
(#<THREAD "wait"> #<THREAD "main thread">)
[6]> (mt:make-thread (lambda()(f) "done") :name "wait")
#<THREAD "wait">
[7]> Segmentation fault