diff --git a/collects/compiler/demodularizer/util.rkt b/collects/compiler/demodularizer/util.rkt
index 717dee8994..1865bc133f 100644
--- a/collects/compiler/demodularizer/util.rkt
+++ b/collects/compiler/demodularizer/util.rkt
@@ -9,9 +9,6 @@
   (define total-stxs (length (prefix-stxs pre)))
   (+ syntax-start total-stxs (if (zero? total-stxs) 0 1)))
 
-(define (eprintf . args)
-  (apply fprintf (current-error-port) args))
-
 (struct nothing ())
 
 (define-syntax-rule (eprintf* . args) (void))
diff --git a/collects/tests/compiler/zo-test.rkt b/collects/tests/compiler/zo-test.rkt
index 1b1279eb36..672b8677c8 100755
--- a/collects/tests/compiler/zo-test.rkt
+++ b/collects/tests/compiler/zo-test.rkt
@@ -137,9 +137,9 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
      
      (unless (and (not (care-about-nonserious?)) (not serious?))
        (when (or (verbose-mode) (stop-on-first-error))
-         (fprintf (current-error-port) "~a -- ~a: ~a\n" p phase exn-msg))
+         (eprintf "~a -- ~a: ~a\n" p phase exn-msg))
        (when (stop-on-first-error)
-         (stop!)))]))     
+         (stop!)))]))
 
 (define timing-thread
   (thread