diff --git a/RELEASE b/RELEASE
index bd3ba41..5e5a4f3 100644
--- a/RELEASE
+++ b/RELEASE
@@ -207,6 +207,7 @@ We manage the project using SourceForge:
    expressions and is therefore no longer supported.
 
 ** Bug fixes
+   Fix WITH-LOCk
    Ensure that the exit value is 1 if scsh exits due to an error
    Load the package scheme-with-scsh before dumping images to get
    better start-up times
diff --git a/Thanks b/Thanks
index ed2c97f..80713a1 100644
--- a/Thanks
+++ b/Thanks
@@ -28,4 +28,5 @@ Post-0.5.2-release bug reports:
     Peter Wang
     Stephen Ma
     stktrc
-    Jan Alleman
\ No newline at end of file
+    Jan Alleman
+    Taylor Campbell
\ No newline at end of file
diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index 2d88cfa..22453a6 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -132,7 +132,7 @@
 (define (with-lock lock thunk)
   (dynamic-wind 
    (lambda ()
-     (release-lock lock))
+     (obtain-lock lock))
    thunk
    (lambda ()
      (release-lock lock))))