diff --git a/collects/mred/private/lock.ss b/collects/mred/private/lock.ss
index 43f8d2a6fb..cf5969e905 100644
--- a/collects/mred/private/lock.ss
+++ b/collects/mred/private/lock.ss
@@ -76,7 +76,8 @@
                  (set! old-break-paramz #f)
                  (semaphore-post monitor-sema)
                  (wx:in-atomic-region #f))))
-         lock-tag))]))
+         lock-tag
+         (lambda (t) (t))))]))
 
   (define (as-exit f)
     ;; (unless (eq? monitor-owner (current-thread)) (error 'monitor-exit "not in monitored area"))