1 files changed, 1 insertions, 1 deletions
diff --git a/prec.scm b/prec.scm
index 3d57318..02b7136 100644
--- a/prec.scm
+++ b/prec.scm
@@ -432,7 +432,7 @@
 ;;; On MS-DOS systems, <ctrl>-Z (26) needs to be ignored in order to
 ;;; avoid problems at end of files.
 (case (software-type)
-  ((MS-DOS)
+  ((ms-dos)
    (if (not (char-whitespace? (integer->char 26)))
        (prec:define-grammar (tok:char-group 0 (integer->char 26) #f))
        )))