Segfault in join-thread for guile-1.4

[satchell]

If you try to join a thread that has terminated, guile-1.4 on Redhat 5.2 
segfaults. CVS guile also dies (as of about 10/9/2000). To see the problem
try
(define (thred-n n)
        (begin-thread 
         (sleep n)(display n)(newline)))
(join-thread   (thred-n 1))

will be OK, but
(join-thread   (thred-n 0))
dies, trying to dereference a NULL pointer in join-coop. Testing for 
a NULL and returning quietly fixes the symptoms; but why is the thread
pointer NULL?

Julian Satchell
<address@hidden>