diff --git a/collects/net/qp.rkt b/collects/net/qp.rkt
index 7522a6c863..779f6831c4 100644
--- a/collects/net/qp.rkt
+++ b/collects/net/qp.rkt
@@ -103,10 +103,7 @@
          (loop (read-byte in))]))))
 
 (define (warning msg . args)
-  (when #f
-    (fprintf (current-error-port)
-             (apply format msg args))
-    (newline (current-error-port))))
+  (when #f (eprintf "~a\n" (apply format msg args))))
 
 (define (hex-digit? i)
   (vector-ref hex-values i))