From a65a5c5f863bca31eba5b757d765e697bd7b923b Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 16 Mar 2004 07:30:14 +0000
Subject: [PATCH] Fixed severe bug in WITH-LOCK. Noted by Taylor Campbell

---
 scheme/lib/sunet-utilities.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/lib/sunet-utilities.scm b/scheme/lib/sunet-utilities.scm
index 87bd4e0..e5fad20 100644
--- a/scheme/lib/sunet-utilities.scm
+++ b/scheme/lib/sunet-utilities.scm
@@ -63,7 +63,7 @@
 (define (with-lock lock thunk)
   (dynamic-wind 
    (lambda ()
-     (release-lock lock))
+     (obtain-lock lock))
    thunk
    (lambda ()
      (release-lock lock))))
@@ -72,4 +72,4 @@
 ;; Get Header from (RFC822 like) header alist
 (define (get-header headers tag)
   (cond ((assq tag headers) => cdr)
-	(else #f)))
\ No newline at end of file
+	(else #f)))