anchor.diff:          ()
   
       let OpenD (file: string) = 
  -        OpenInternal Start WaitSeconds GetLockHandle GetProcessHandle SelectHandle (fun f ->  logToFile f) file
  +        OpenInternal Start WaitSeconds FindLockHandle FindProcessHandle SelectHandle (fun f ->  logToFile f) file
  
positive.code:             | :? System.NullReferenceException -> nativeint 0
  
  
      let internal GetLockHandle (input: Input) =
          
          input.File
          |> fun f -> [f]
  
negative.code:         ()
  
  
      let PopUp findLockHandle findProcessHandle selectHandle (waitTime: float) log (input: Input) =
          let timeToStop = DateTime.UtcNow.AddSeconds(waitTime)
  
          let rec popUpLoop oldHandle currentTime =
              Thread.Sleep 500
  
              let newHandle = selectHandle findLockHandle findProcessHandle input log
              log ("Old: " + oldHandle.ToString() + " New: " + newHandle.ToString())
  
              if (oldHandle <> newHandle) then BringToFront newHandle log
  