diff --git a/components/codetools/codecache.pas b/components/codetools/codecache.pas
index 81017e7476..3e6861e72c 100644
--- a/components/codetools/codecache.pas
+++ b/components/codetools/codecache.pas
@@ -920,6 +920,7 @@ procedure TCodeBuffer.SetIsDeleted(const NewValue: boolean);
 begin
   if FIsDeleted=NewValue then exit;
   //debugln(['TCodeBuffer.SetIsDeleted ',Filename,' ',NewValue]);
+  IncreaseChangeStep;
   FIsDeleted:=NewValue;
   if FIsDeleted then begin
     Clear;
diff --git a/components/codetools/sourcelog.pas b/components/codetools/sourcelog.pas
index 7d2ac12abf..7c4215d9fc 100644
--- a/components/codetools/sourcelog.pas
+++ b/components/codetools/sourcelog.pas
@@ -114,10 +114,10 @@ type
     procedure SetItems(Index: integer; AnItem: TSourceLogEntry);
     function GetMarkers(Index: integer): TSourceLogMarker;
     procedure BuildLineRanges;
-    procedure IncreaseChangeStep;
     procedure SetReadOnly(const Value: boolean);
     function IndexOfChangeHook(AChangeHook: TOnSourceChange): integer;
   protected
+    procedure IncreaseChangeStep;
     procedure DecodeLoaded(const AFilename: string;
                         var ASource, ADiskEncoding, AMemEncoding: string); virtual;
     procedure EncodeSaving(const AFilename: string; var ASource: string); virtual;