diff --git a/src/impl-clozure.lisp b/src/impl-clozure.lisp
index dd16c00af5e2794bfb4f8448826fabfc1408dcc5..d2ae16e16c7b529c49e7d92467ab8ca2c17fe872 100644
--- a/src/impl-clozure.lisp
+++ b/src/impl-clozure.lisp
@@ -65,10 +65,9 @@ Distributed under the MIT license (see LICENSE file)
   (ccl:make-semaphore))
 
 (defun condition-wait (condition-variable lock)
+  (release-lock lock)
   (unwind-protect
-       (progn
-         (release-lock lock)
-         (ccl:wait-on-semaphore condition-variable))
+       (ccl:wait-on-semaphore condition-variable)
     (acquire-lock lock t)))
 
 (defun condition-notify (condition-variable)