anchor.diff:                  printfn "Run"
                   this.HandleRun(commandQueue, a) |> ignore
   
  -            | MsgWaitFor ch ->
  -                printfn "WaitFor"
  -                OpenCL.Net.Cl.Finish(commandQueue.Queue)
  +            | MsgNotifyMe ch ->
  +                printfn "NotifyMe"
  +                OpenCL.Net.Cl.Finish(commandQueue)
                   ch.Reply ()
   
               | MsgBarrier o ->
                   printfn "Barrier"
  -                OpenCL.Net.Cl.Finish(commandQueue.Queue)
  +                OpenCL.Net.Cl.Finish(commandQueue)
                   o.ImReady()
                   while not <| o.CanContinue() do ()
   
  
positive.code:         then raise (new Cl.Exception(!error))
          ctx
  
      member this.ClDevice = device
  
      member this.ClContext = clContext
  
negative.code:                             write a.Source a.Destination
                              0
                  }
      member private this.HandleToHost (queue, toHost:ToHostCrate) =
          toHost.Apply
                  {
                      new ToHostCrateEvaluator<int>
  