anchor.diff:      end;
     end;
   
  +  DoOutputDebugString('Testing IsNewerVersionInstalled('''+FInstallInfo.Version+''')');
     if not IsNewerVersionInstalled(FInstallInfo.Version) then
     begin
  +    DoOutputDebugString('not IsNewerVersionInstalled');
       ReinstallMode := 'REBOOTPROMPT=S REBOOT=ReallySuppress'; // I2754 - Auto update is too silent  // I3355   // I3500
       if (FInstalledVersion.Version <> '') and (FInstalledVersion.ProductCode = FInstallerVersion.ProductCode)
         then ReinstallMode := ReinstallMode + ' REINSTALLMODE=vdmus REINSTALL=ALL';  // I3355   // I3500   // I4858
  
positive.code: 
  function TfrmRun.IsNewerVersionInstalled(const NewVersion: WideString): Boolean;
  begin
    Result := (FInstalledVersion.Version <> '') and (NewVersion <= FInstalledVersion.Version);
  end;
  
  function TfrmRun.CheckDependencies: Boolean;
  
negative.code:   end;
  end;
  
  procedure DoOutputDebugString(s: string);
  begin
    OutputDebugString(PWideChar('KEYMANDEVELOPER.SETUP.EXE: '+s+#13#10));
  end;
  
  function TfrmRun.InstallMSI: Boolean;
  var
    res: Cardinal;
  