diff --git a/collects/web-server/managers/lru.rkt b/collects/web-server/managers/lru.rkt index 2a7e16943f..f44940e136 100644 --- a/collects/web-server/managers/lru.rkt +++ b/collects/web-server/managers/lru.rkt @@ -125,7 +125,9 @@ (hash-set! htable a-k-id (list salt k expiration-handler (add1 count)))) (if (or (not (eq? salt a-salt)) - (not k)) + (not k) + (and (custodian-box? k) + (not (custodian-box-value k)))) (raise (make-exn:fail:servlet-manager:no-continuation (format "No continuation for id: ~a" a-k-id) (current-continuation-marks) diff --git a/collects/web-server/managers/timeouts.rkt b/collects/web-server/managers/timeouts.rkt index d33a15aef6..6a8db43f31 100644 --- a/collects/web-server/managers/timeouts.rkt +++ b/collects/web-server/managers/timeouts.rkt @@ -107,7 +107,9 @@ (increment-timer! k-timer continuation-timer-length)) (if (or (not (eq? salt a-salt)) - (not k)) + (not k) + (and (custodian-box? k) + (not (custodian-box-value k)))) (raise (make-exn:fail:servlet-manager:no-continuation (format "No continuation for id: ~a" a-k-id) (current-continuation-marks)