diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm index 1f17098..a2be593 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm @@ -66,9 +66,7 @@ (error "not a positive integer")) (handler-options req "Please enter a valid, positive integer number")))) ((returned-via? submit-cache bindings) - (let ((cache-plugins? (if (input-field-binding cache-checkbox bindings) - #t - #f))) + (let ((cache-plugins? (input-field-value cache-checkbox bindings))) (set-options-cache-surflets? cache-plugins?) (handler-options req (format #f "Caching turned ~s."