--- a/Text/Highlighting/Kate/Common.hs
+++ b/Text/Highlighting/Kate/Common.hs
@@ -184,7 +184,7 @@
 #ifdef _PCRE_LIGHT
 compileRegex regexpStr = do
   st <- getState
-  let opts = [anchored] + [caseless | not (synStCaseSensitive st)]
+  let opts = [anchored] ++ [caseless | not (synStCaseSensitive st)]
   return $ compile ('.' : convertOctal regexpStr) opts
 #else
 compileRegex regexpStr = do
