diff --git a/components/fpcunit/ide/frmtestinsight.pas b/components/fpcunit/ide/frmtestinsight.pas
index 23adee5aec..8501689c1e 100644
--- a/components/fpcunit/ide/frmtestinsight.pas
+++ b/components/fpcunit/ide/frmtestinsight.pas
@@ -590,7 +590,6 @@ procedure TTestInsightForm.TestTreeDblClick(Sender: TObject);
     P : integer;
 
   begin
-    Writeln('Path: ');
     Result:=False;
     P:=RPos('.',aPath);
     if P>0 then
@@ -604,7 +603,6 @@ procedure TTestInsightForm.TestTreeDblClick(Sender: TObject);
         aClass:=aPath;
       Result:=True;
       end;
-    Writeln('Path -> Class: ',aClass,' method: ',aMethod,': ',Result);
   end;
 
 var
@@ -748,7 +746,6 @@ begin
     begin
     Res:=aResult[i];
     aName:=Res.TestName;
-    Writeln('Analyizing test result',Res.TestClassName,' : ',Res.TestName);
     N:=FindNode(aName);
     if N=Nil then
       Res.Free
@@ -762,7 +759,7 @@ begin
         rtWarning : AddFailure(N,Itm);
         rtPassed : EndTest(N,Itm);
       else
-        Writeln('Unknown test result',Res.TestClassName,' : ',Res.TestName);
+        ; // 
       end;
       end;
     end;
diff --git a/components/fpcunit/ide/regtestinsight.pas b/components/fpcunit/ide/regtestinsight.pas
index 873ecc4854..5cfb1992bd 100644
--- a/components/fpcunit/ide/regtestinsight.pas
+++ b/components/fpcunit/ide/regtestinsight.pas
@@ -105,7 +105,7 @@ begin
       F:=LProj.FindFile(aunit+'.pas',[pfsfOnlyProjectFiles]);
     if Not Assigned(F) then
       F:=LProj.FindFile(aunit+'.p',[pfsfOnlyProjectFiles]);
-    Writeln('Found unit "',aunit,'" : ',Assigned(F));
+    // Writeln('Found unit "',aunit,'" : ',Assigned(F));
     end;
   // Search in unit, if available
   Tool:=Nil;
@@ -123,7 +123,7 @@ begin
     if CodetoolBoss.Explore(C,Tool,False,false) then
       Node:=Tool.FindMainBeginEndNode;
     end;
-  Writeln('Node found for unit "',aunit,'" : ',Assigned(Node));
+  // Writeln('Node found for unit "',aunit,'" : ',Assigned(Node));
   if Node=nil then
     exit;
   Params:=TFindDeclarationParams.Create;
@@ -132,7 +132,7 @@ begin
   Params.SetIdentifier(Tool,PChar(aClass),nil);
   if not Tool.FindIdentifierInContext(Params) then
     begin
-    Writeln('Class not found for unit "',aunit,'", identifier ',aClass);
+    // Writeln('Class not found for unit "',aunit,'", identifier ',aClass);
     exit;
     end;
   NewNode:=Params.NewNode;
@@ -142,13 +142,13 @@ begin
      or (NewNode.Desc<>ctnTypeDefinition)
      or (ClassNode.Desc<>ctnClass) then
        begin
-       Writeln('Class identifier in unit "',aunit,'", is not a class identifier ',aClass);
+       // Writeln('Class identifier in unit "',aunit,'", is not a class identifier ',aClass);
        Exit;
        end;
   Ctx:=ClassTool.FindClassMember(ClassNode,aMethod,true);
   if not Assigned(Ctx.Node) then
     begin
-    Writeln('Method ',aMethod,' for class ',aClass,' not found in unit "',aunit);
+    // Writeln('Method ',aMethod,' for class ',aClass,' not found in unit "',aunit);
     exit;
     end;
   Ctx.Tool.CleanPosToCaretAndTopLine(Ctx.Node.StartPos,Caret,NewTopLine);