diff --git a/pkgs/racket-test/tests/openssl/peer-verif.rkt b/pkgs/racket-test/tests/openssl/peer-verif.rkt index f430b8e5d4..9c5601db2e 100644 --- a/pkgs/racket-test/tests/openssl/peer-verif.rkt +++ b/pkgs/racket-test/tests/openssl/peer-verif.rkt @@ -62,7 +62,9 @@ verify-fail? (exn? x) ;; late checking may abandon the connection - (regexp-match? #rx"^tcp-(?:read|write):" (exn-message x)))) + (regexp-match? + #rx"(^tcp-(?:read|write):|error (reading from|writing to) stream port)" + (exn-message x)))) (lambda (x) (void))]) (let-values ([(in out) (ssl-accept ssl-listener)]) (check "Server: Accepted connection.~n" #t #t)