diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index f0fda2ca..590973fe 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -390,7 +390,11 @@ begin
   //
   fTempLines.Delete(0);
   tips := fTempLines.Text;
+  {$IFDEF WINDOWS}
+  tips := tips[1..tips.length-2];
+  {$ELSE}
   tips := tips[1..tips.length-1];
+  {$ENDIF}
 end;
 
 procedure TCEDcdWrapper.getComplAtCursor(aList: TStrings);
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 23d54c4d..94497276 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -1029,6 +1029,11 @@ begin
     fCallTipStrings.Objects[0] := TObject(pointer(i));
     {$POP}
     str := fCallTipStrings.Text;
+    {$IFDEF WINDOWS}
+    str := str[1..str.length-2];
+    {$ELSE}
+    str := str[1..str.length-1];
+    {$ENDIF}
     showCallTips(str);
   end;
 end;