anchor.diff:                  // The second curried parameter accepts a string, as this is a specified
                   // parameter in the route path "{id:%s}".
                   Handle = fun () lastId -> async {
  -                    let! msgs = messageBox.PostAndTryAsyncReply(fun c -> 
  -                                    GetSince(Some(Guid.Parse lastId), c))
  +                    let! msgs = messageBox.PostAndTryAsyncReply((fun c -> 
  +                                    GetSince(Some(Guid.Parse lastId), c)), cometTimeout)
                       return OK msgs
                   }
               }
  
positive.code:                 Resource = "Message"; Action = "GetAll"
                  Description = "Returns all the messages so far."
                  Handle = fun () () -> async {
                      let timeout = 10000
                      let! msgs = messageBox.PostAndTryAsyncReply((fun c -> GetSince(None, c)), timeout)
                      return OK msgs
                  }
              }
  
negative.code:         loop [] []
      )
  
  let cometTimeout = 10000
  
  /// Creates a Chat API.
  let createServer() =
      // Here we define what the server will listen to.
  