diff --git a/ide/lazarus.pp b/ide/lazarus.pp
index c222ec455a..e3d9d562c4 100644
--- a/ide/lazarus.pp
+++ b/ide/lazarus.pp
@@ -67,7 +67,7 @@ begin
 
   Application.CreateForm(TMainIDE, MainIDE);
   {$IFDEF IDE_MEM_CHECK}
-  CheckHeap('TMainIDE created');
+  CheckHeapWrtMemCnt('lazarus.pp: TMainIDE created');
   {$ENDIF}
   Application.CreateForm(TMessagesView, MessagesView);
 
@@ -86,6 +86,9 @@ end.
 
 {
   $Log$
+  Revision 1.37  2002/09/13 08:11:45  lazarus
+  MG: fixed memcheck output
+
   Revision 1.36  2002/07/30 06:24:04  lazarus
   MG: added a faster version of TXMLConfig
 
diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index 45321edeba..ae2bb56230 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -1182,7 +1182,7 @@ procedure TSourceEditor.InsertGPLNotice(CommentType: TCommentType);
 var
   Txt: string;
 begin
-  Txt:=CommentText(lisGPLNotice,CommentType);
+  Txt:=CommentText(Format(lisGPLNotice,[#13#13,#13#13]),CommentType);
   FEditor.SelText:=Txt;
 end;