Index: /branches/working-0711/ccl/level-0/l0-misc.lisp
===================================================================
--- /branches/working-0711/ccl/level-0/l0-misc.lisp	(revision 7865)
+++ /branches/working-0711/ccl/level-0/l0-misc.lisp	(revision 7866)
@@ -1134,8 +1134,12 @@
                       (setf (lock-acquisition.status flag) t))
                     t)
-                  (progn
+                  (progn                    
+                    #+futex
+                    (%unlock-futex ptr)
+                    #-futex
+                    (setf (%get-natural ptr target::rwlock.spin) 0)
                     (%unlock-rwlock-ptr ptr lock)
                     (let* ((*interrupt-level* level))
-                      (%write-lock-rwlock-ptr ptr flag)))))))))))
+                      (%write-lock-rwlock-ptr ptr lock flag)))))))))))