Fix WITH-LOCK: The previous version called RELEASE-LOCK in the before

thunk. Noted by Taylor Campbell.

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

Thanks

@@ -28,4 +28,5 @@ Post-0.5.2-release bug reports:
     Peter Wang
     Stephen Ma
     stktrc
-    Jan Alleman
+    Jan Alleman
+    Taylor Campbell

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))))