diff --git a/patches/issue218.patch b/patches/issue218.patch
new file mode 100644
index 00000000..12058df8
--- /dev/null
+++ b/patches/issue218.patch
@@ -0,0 +1,23 @@
+Fixes https://github.com/BBasile/Coedit/issues/218
+Must be applied to any Lazarus 1.8.0 Vanilla.
+Has not be applied to Lazarus 1.8.1 or newer.
+--- synedit.pp
++++ synedit.pp
+@@ -8945,7 +8945,7 @@
+       while not Highlighter.GetEol do begin
+         Start := Highlighter.GetTokenPos + 1;
+         Token := Highlighter.GetToken;
++        if (PosX >= Start) and (PosX < Start + Length(Token)) then begin
+-        if (PosX >= Start) and (PosX <= Start + Length(Token)) then begin
+           Attri := Highlighter.GetTokenAttribute;
+           TokenType := Highlighter.GetTokenKind;
+           exit(True);
+@@ -8990,7 +8990,7 @@
+         //TokenType := Highlighter.GetTokenKind;
+         Attri := Highlighter.GetTokenAttribute;
+         //DebugLn(['  TCustomSynEdit.CaretAtIdentOrString: Start=', Start, ', Token=', Token]);
++        if (PosX >= Start) and (PosX < Start + Length(Token)) then
+-        if (PosX >= Start) and (PosX <= Start + Length(Token)) then
+         begin
+           AtIdent := Attri = Highlighter.IdentifierAttribute;
+           NearString := (Attri = Highlighter.StringAttribute)
diff --git a/patches/readme.md b/patches/readme.md
new file mode 100644
index 00000000..33fac6c5
--- /dev/null
+++ b/patches/readme.md
@@ -0,0 +1,2 @@
+This folder contains patches for the Lazarus LCL or the FreePascal FCL. They should be applied before building.
+See individual comments at the beginning of each patch to know which version of Lazarus needs a modification.