diff --git a/src/u_dlang.pas b/src/u_dlang.pas
index 4751745f..72d460e9 100644
--- a/src/u_dlang.pas
+++ b/src/u_dlang.pas
@@ -1071,7 +1071,6 @@ var
   t: PLexToken;
   i: integer;
   p: integer = 0;
-  s: integer = 0;
 begin
   result := Point(0,0);
   i := getIndexOfTokenAt(tokens, caretPos) + 1;
diff --git a/src/u_synmemo.pas b/src/u_synmemo.pas
index 980947ad..e5d01e6d 100644
--- a/src/u_synmemo.pas
+++ b/src/u_synmemo.pas
@@ -538,6 +538,7 @@ var
   a: string;
   b: string;
   i: integer = 0;
+  j: integer = 0;
   x: integer;
   y: integer;
   r: TStringRange = (ptr:nil; pos:0; len: 0);
@@ -588,11 +589,13 @@ begin
     // so fix the formatting and go back.
     else if r.empty() then
     begin
-      if i > 128 then
+      if j > 128 then
         exit;
       b := '%FIX% ' + b;
+      j += 1;
       goto FIXED_AUTO;
     end;
+    j := 0;
     // func args
     while not r.empty do
     begin