Typo.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 2dde5457eb0868c6fb8b9ae8c8dcf7ec15006330..793ee172f343b2fecf4005f8d439b7074f3cdf78 100644 (file)
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -871,7 +871,7 @@ USA.
 (define (process-mode-attribute file-attribute-alist port)
   (declare (ignore port))
   (let ((mode-entry
-        (lookup-file-attribute file-attribute-alist 'KEYWORD-STYLE)))
+        (lookup-file-attribute file-attribute-alist 'MODE)))
     (if (pair? mode-entry)
        (let ((value (cdr mode-entry)))
          (if (or (not (symbol value))