diff --git a/collects/mred/private/wxme/stream.rkt b/collects/mred/private/wxme/stream.rkt
index 2828e01c46..246bf4241b 100644
--- a/collects/mred/private/wxme/stream.rkt
+++ b/collects/mred/private/wxme/stream.rkt
@@ -180,7 +180,8 @@
   (def/override (write-bytes [bytes? v]
                              [exact-nonnegative-integer? [start 0]]
                              [exact-nonnegative-integer? [end (bytes-length v)]]) 
-    (write-bytes-proc v port start end)))
+    (write-bytes-proc v port start end)
+    (void)))
 
 (defclass editor-stream-out-file-base% editor-stream-out-port-base%
   (super-new))
diff --git a/collects/tests/gracket/wxme.rkt b/collects/tests/gracket/wxme.rkt
index 50d9234193..65cd1f110f 100644
--- a/collects/tests/gracket/wxme.rkt
+++ b/collects/tests/gracket/wxme.rkt
@@ -668,11 +668,11 @@
 
 (define fbo (make-object editor-stream-out-bytes-base%))
 (expect (send fbo tell) 0)
-(expect (send fbo write-bytes #"abc") 3)
+(expect (send fbo write-bytes #"abc") (void))
 (expect (send fbo tell) 3)
 (expect (send fbo get-bytes) #"abc")
 (send fbo seek 2)
-(expect (send fbo write-bytes #"012345" 1 4) 3)
+(expect (send fbo write-bytes #"012345" 1 4) (void))
 (expect (send fbo tell) 5)
 (expect (send fbo get-bytes) #"ab123")
 (expect (send fbo bad?) #f)