Index: /trunk/ccl/hemlock/src/modeline.lisp
===================================================================
--- /trunk/ccl/hemlock/src/modeline.lisp	(revision 592)
+++ /trunk/ccl/hemlock/src/modeline.lisp	(revision 593)
@@ -109,5 +109,5 @@
 		 (case external-format
 		   ((:unix nil))
-		   (:mac "[CR] ")
+		   (:macos "[CR] ")
 		   (:cp/m "[CRLF] ")))))