anchor.diff:    fname: string;
   begin
   
  +  fMsgs.clearByData(fDoc);
     FreeRunnableProc;
     if fDoc = nil then exit;
   
  
positive.code:   dmdproc := TProcess.Create(nil);
    try
  
      fMsgs.clearByData(fDoc);
      fMsgs.message('compiling ' + shortenPath(fDoc.fileName, 25), fDoc, amcEdit, amkInf);
  
      if fileExists(fDoc.fileName) then fDoc.save
  
negative.code:     exit;
    //
    fname := fRunProc.Executable;
    if getprocInputHandler.process = fRunProc  then
      getMessageDisplay.message('the execution of a runnable module ' +
        'has been implicitly aborted', fDoc, amcEdit, amkWarn);
    killProcess(fRunProc);
    if fileExists(fname) then
      sysutils.DeleteFile(fname);
  