Index: /trunk/lex.lisp
===================================================================
--- /trunk/lex.lisp	(revision 1)
+++ /trunk/lex.lisp	(revision 2)
@@ -12,5 +12,5 @@
 		 regex-list)))
     (when (rest mapped) (setq mapped `((:alternation ,@mapped))))
-    `(:sequence :start-anchor
+    `(:sequence (:flags :single-line-mode-p) :start-anchor
       (:group ,@mapped)
       (:register (:greedy-repetition 0 nil :everything)))))