diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 021c08c..ac66f32 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -335,8 +335,7 @@ (new-memo (make-default-memo))) ;; Do it this way: new values and then new message (set-memo:value memo - (+ (time) - (options-session-lifetime))) + (+ (time) time-to-live)) (set-memo:new-memo memo new-memo) ;; I don't think we need locking here. Do you agree? (set-session-memo! session new-memo)