anchor.diff:          let o = JToken.ReadFrom(new JsonTextReader(sr)) :?> JObject
           let firstName = string o.["first_name"]
   
  -        do! Async.SwitchToContext callingContext
  -
           return (contentInfo, { firstName = firstName })
       }
   
       let streamToPages (contentInfo:ContentInfo, stream:Stream) = async {
  -        let callingContext = SynchronizationContext.Current
           do! Async.SwitchToThreadPool ()
   
           use stream = stream
  
positive.code: 
                  { id = id; accessToken = accessToken; name = name })
              |> List.ofSeq
                 
          do! Async.SwitchToContext callingContext
  
          return (contentInfo, result)
      }
  
negative.code: 
  module internal FacebookConverters =
      let streamToUser (contentInfo:ContentInfo, stream:Stream) = async {
          do! Async.SwitchToThreadPool ()
  
          use stream = stream
  