diff --git a/components/chelper/textparsingutils.pas b/components/chelper/textparsingutils.pas
index 0b2e1c0f2..90267b51b 100644
--- a/components/chelper/textparsingutils.pas
+++ b/components/chelper/textparsingutils.pas
@@ -83,7 +83,7 @@ type
   public
     buffer: String;
     constructor Create(const Abuffer: String=''; const aname: string = ''; aobj: TObject = nil);
-    procedure InsertSubBuffer(pos: Integer; const ABuffer: string; const AName: string = ''; ATag: TObject = '');
+    procedure InsertSubBuffer(pos: Integer; const ABuffer: string; const AName: string = ''; ATag: TObject = nil);
     property SubBuffer[i: Integer]: TSubBuffer read GetSubBuffer;
     property Count: Integer read GetCount;
   end;
diff --git a/components/chelper/tosourceeditor.pas b/components/chelper/tosourceeditor.pas
index 2fbbe77f5..bc53d802e 100644
--- a/components/chelper/tosourceeditor.pas
+++ b/components/chelper/tosourceeditor.pas
@@ -216,7 +216,7 @@ var
   p       : TPoint;
   st      : TPoint;
   err     : TErrorInfo;
-  line    : TIDEMessageLine;
+  //line    : TIDEMessageLine;
   parts   : TStringList;
   lcnt    : Integer;
 begin
@@ -303,7 +303,7 @@ begin
 end;
 
 
-type
+(*type
 
   { TChelperJumper }
 
@@ -338,7 +338,7 @@ begin
     LazarusIDE.DoOpenFileAndJumpToPos(fn, Point(cl, ln), -1, -1, -1, [ofOnlyIfExists,ofRegularFile,ofVirtualFile]);
   end;
 end;
-
+*)
 procedure Register;
 var
   pth : AnsiString;
@@ -349,7 +349,7 @@ begin
   LoadFromFile(ConvFile, ConvSettings);
   ReadIDESettings(ConvFile);
   if DefineFile='' then DefineFile:=pth+'cconvdefines.h';
-  RegisterIDEMsgQuickFix(TChelperJumper.Create);
+  //RegisterIDEMsgQuickFix(TChelperJumper.Create);
 end;
 
 initialization