Android Question Error in HttpUtils2

'HttpUtils2 version 2.10 (based on OkHttp library)
'Service module
Sub Process_Globals
 Private hc As OkHttpClient
 Private TaskIdToJob As Map
 Public TempFolder As String
 Private taskCounter As Int
End Sub

Sub Service_Create
 TempFolder = File.DirInternalCache
 hc.Initialize("hc")
 TaskIdToJob.Initialize
End Sub

Sub Service_Start (StartingIntent As Intent)
End Sub

Sub Service_Destroy
End Sub

Public Sub SubmitJob(job As HttpJob) As Int
 taskCounter = taskCounter + 1
 TaskIdToJob.Put(taskCounter, job)
 If job.Username <> "" And job.Password <> "" Then
  hc.ExecuteCredentials(job.GetRequest, taskCounter, job.Username, job.Password)
 Else
  hc.Execute(job.GetRequest, taskCounter)
 End If
 Return taskCounter
End Sub

Sub hc_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
 ' ********** Modified Code für DownloadService (from Erel?)*************
 Dim CountStream As CountingOutputStream
 CountStream.Initialize(File.OpenOutput(TempFolder, TaskId, False))
 Response.GetAsynchronously("response", CountStream , True, TaskId)
 '**************************************

'Original
' Response.GetAsynchronously("response", File.OpenOutput(TempFolder, TaskId, False), True, TaskId)
End Sub

Sub Response_StreamFinish (Success As Boolean, TaskId As Int)
 If Success Then
  CompleteJob(TaskId, Success, "")
 Else
  CompleteJob(TaskId, Success, LastException.Message)
 End If
 
End Sub

Sub hc_ResponseError (Response As OkHttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
 If Response <> Null Then
  Starter.cl.lg(Response.ErrorResponse)
  Response.Release
 End If
 CompleteJob(TaskId, False, Reason)
End Sub

Sub CompleteJob(TaskId As Int, success As Boolean, errorMessage As String)
 Dim job As HttpJob = TaskIdToJob.Get(TaskId)
 TaskIdToJob.Remove(TaskId)
 job.success = success
 job.errorMessage = errorMessage
 job.Complete(TaskId)
End Sub