anchor.diff:              match (try Seq.toArray computations |> Choice1Of2 with e -> Choice2Of2 e) with
               | Choice2Of2 e -> ctx.econt e
               | Choice1Of2 [||] -> ctx.scont [||]
  -            | Choice1Of2 [| comp |] -> 
  +            // schedule single-child parallel workflows in current task
  +            // note that this invalidates expected workflow semantics w.r.t. mutability.
  +            | Choice1Of2 [| comp |] ->
                   let ctx' = Context.map (fun t -> [| t |]) ctx
                   Cloud.StartImmediate(comp, ctx')
   
  
positive.code:             match (try Seq.toArray computations |> Choice1Of2 with e -> Choice2Of2 e) with
              | Choice2Of2 e -> ctx.econt e
              | Choice1Of2 [||] -> ctx.scont None
              | Choice1Of2 [| comp |] -> Cloud.StartImmediate(comp, ctx)
              | Choice1Of2 computations ->
  
  
negative.code:     member rt.StartAsCell cts (wf : Cloud<'T>) =
          let resultCell = rt.ResourceFactory.RequestResultCell<'T>()
          let taskCompletionEvent = new TaskCompletionEvent()
          // defines root continuations for this process ; task completion event triggered by default
          let scont t = resultCell.SetResult (Completed t) |> ignore ; taskCompletionEvent.TriggerLocal() 
          let econt e = resultCell.SetResult (Exception e) |> ignore ; taskCompletionEvent.TriggerLocal()
          let ccont c = resultCell.SetResult (Cancelled c) |> ignore ; taskCompletionEvent.TriggerLocal()
          rt.EnqueueTask scont econt ccont cts taskCompletionEvent wf
          resultCell
  
  