diff --git a/ide/sourcemarks.pas b/ide/sourcemarks.pas
index b999c0100f..cf61b4bc64 100644
--- a/ide/sourcemarks.pas
+++ b/ide/sourcemarks.pas
@@ -256,7 +256,7 @@ type
   end;
   
 var
-  SourceEditorMarks: TSourceMarks;
+  SourceEditorMarks: TSourceMarks = nil;
   
 implementation
 
@@ -635,6 +635,8 @@ end;
 
 destructor TSourceMarks.Destroy;
 begin
+  if SourceEditorMarks=Self then
+    SourceEditorMarks:=nil;
   Clear;
   FreeAndNil(FExtToolsMarks);
   FreeThenNil(FItems);
@@ -820,8 +822,5 @@ begin
   Result := FImgList.GetImageIndex(Resname);
 end;
 
-initialization
-  SourceEditorMarks:=nil;
-
 end.