>From 7f7390aaa7aef12f60a8f76c3e06fcdaa146753b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20F=2E=20Wittenberger?=
 <address@hidden>
Date: Sat, 7 Nov 2015 18:54:48 +0100
Subject: [PATCH] In thread-join! handle joining a thread in state `sleeping`
 with timeout.

---
 srfi-18.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/srfi-18.scm b/srfi-18.scm
index 7c908f2..2ae489d 100644
--- a/srfi-18.scm
+++ b/srfi-18.scm
@@ -183,7 +183,7 @@
 		   (##sys#make-structure 
 		    'condition '(uncaught-exception)
 		    (list '(uncaught-exception . reason) (##sys#slot thread 7)) ) ) ) )
-		((blocked ready)
+		((blocked ready sleeping)
                  (if limit
                      (return
                       (if tosupplied
-- 
2.6.1