diff --git a/module/system/base/message.scm b/module/system/base/message.scm
index 9accf712a..26d1a181a 100644
--- a/module/system/base/message.scm
+++ b/module/system/base/message.scm
@@ -75,7 +75,7 @@
   (printer      warning-type-printer))
 
 (define %warning-types
-  ;; List of know warning types.
+  ;; List of known warning types.
   (map (lambda (args)
          (apply make-warning-type args))