diff --git a/collects/handin-server/handin-server.ss b/collects/handin-server/handin-server.ss index f7dfe6bf65..ec6f46ccd3 100644 --- a/collects/handin-server/handin-server.ss +++ b/collects/handin-server/handin-server.ss @@ -437,7 +437,7 @@ (lambda (str info) (check-field str (cadr info) (car info) (caddr info))) (cdr new-data) EXTRA-FIELDS) (LOG "change info for ~a ~s -> ~s" - (car usernames) new-data (car user-datas)) + (car usernames) (car user-datas) new-data) (put-user-data (car usernames) new-data))) (define (get-user-info data)