diff --git a/racket/collects/net/http-client.rkt b/racket/collects/net/http-client.rkt index 5bbc4ca5aa..6e254c44eb 100644 --- a/racket/collects/net/http-client.rkt +++ b/racket/collects/net/http-client.rkt @@ -25,9 +25,13 @@ bs)) (define (->bytes str) - (if (string? str) - (string->bytes/utf-8 str) - str)) + (cond + [(string? str) + (string->bytes/utf-8 str)] + [(not str) + #""] + [else + str])) (define (read-bytes-line/not-eof ip kind) (define bs (read-bytes-line ip kind))