diff --git a/collects/handin-server/private/run-status.ss b/collects/handin-server/private/run-status.ss
index 5a0aee0a33..fdb82027c4 100644
--- a/collects/handin-server/private/run-status.ss
+++ b/collects/handin-server/private/run-status.ss
@@ -7,7 +7,7 @@
   ;; submission process.
   (define current-run-status-box (make-parameter #f))
 
-  ;; current-messenget is a function that will send a message to the client.
+  ;; current-messenger is a function that will send a message to the client.
   (define current-messenger (make-parameter #f))
   (define (message . args)
     (let ([messenger (current-messenger)])