diff --git a/collects/lang/run-teaching-program.ss b/collects/lang/run-teaching-program.ss
index 558e6e8e81..b15db66059 100644
--- a/collects/lang/run-teaching-program.ss
+++ b/collects/lang/run-teaching-program.ss
@@ -92,7 +92,7 @@
     (format "the teachpack '~a' was not found" name)))
 
 ;; rewrite-module : settings syntax (is-a?/c interactions-text<%>) -> syntax
-;; rewrites te module to print out results of non-definitions
+;; rewrites the module to print out results of non-definitions
 (define (rewrite-module stx rep)
   (syntax-case stx (module #%plain-module-begin)
     [(module name lang (#%plain-module-begin bodies ...))