diff --git a/collects/compiler/write-bytecode.ss b/collects/compiler/write-bytecode.ss
index a37b768341..327c167163 100644
--- a/collects/compiler/write-bytecode.ss
+++ b/collects/compiler/write-bytecode.ss
@@ -2,12 +2,12 @@
 (require compiler/zo-parse
          scheme/match)
 
-(provide write-bytecode)
+(provide zo-marshal)
 
 ;; Doesn't write as compactly as MzScheme, since list and pair sequences
 ;; are not compated, and symbols are not written in short form
 
-(define (write-bytecode top)
+(define (zo-marshal top)
   (match top
     [(struct compilation-top (max-let-depth prefix form))
      (let ([encountered (make-hasheq)]
diff --git a/collects/scribblings/mzc/decompile.scrbl b/collects/scribblings/mzc/decompile.scrbl
index 8e9e527bc8..a97c36e69d 100644
--- a/collects/scribblings/mzc/decompile.scrbl
+++ b/collects/scribblings/mzc/decompile.scrbl
@@ -4,7 +4,7 @@
           (for-label scheme/base
                      compiler/decompile
                      (only-in compiler/zo-parse compilation-top?)
-                     compiler/write-bytecode))
+                     compiler/zo-marshal))
 
 @title[#:tag "decompile"]{Decompiling Bytecode}
 
@@ -105,11 +105,11 @@ Consumes the result of parsing bytecode and returns an S-expression
 
 @; ------------------------------------------------------------
 
-@section{Scheme API for Recompiling}
+@section{Scheme API for Marshaling Bytecode}
 
-@defmodule[compiler/write-bytecode]
+@defmodule[compiler/zo-marshal]
 
-@defproc[(write-bytecode [top compilation-top?]) bytes?]{
+@defproc[(zo-marshal [top compilation-top?]) bytes?]{
 
 Consumes a representation of bytecode and generates a byte string for
 the marshaled bytecode. Currently, modules and quoted syntax objects