diff --git a/collects/handin-server/status-web-root/servlets/status.ss b/collects/handin-server/status-web-root/servlets/status.ss index 4fc8d6659b..1f939f9a52 100644 --- a/collects/handin-server/status-web-root/servlets/status.ss +++ b/collects/handin-server/status-web-root/servlets/status.ss @@ -207,7 +207,7 @@ (one-status-page user for-handin) (all-status-page user))) - (define (login-page status for-handin errmsg) + (define (login-page for-handin errmsg) (let* ([request (send/suspend (lambda (k) @@ -238,7 +238,7 @@ (or (equal? pw (car user-data)) (equal? pw (get-conf 'master-password))))) (status-page user for-handin)] - [else (login-page status for-handin "Bad username or password")]))) + [else (login-page for-handin "Bad username or password")]))) (define web-counter (let ([sema (make-semaphore 1)] @@ -251,7 +251,7 @@ (define (start initial-request) (parameterize ([current-session (web-counter)]) - (login-page null (aget (request-bindings initial-request) 'handin) #f))) + (login-page (aget (request-bindings initial-request) 'handin) #f))) (define interface-version 'v2) (define name "status")