diff --git a/trivial-tar-writer.scm b/trivial-tar-writer.scm
index 36e0d3e..81b308d 100644
--- a/trivial-tar-writer.scm
+++ b/trivial-tar-writer.scm
@@ -49,6 +49,6 @@
     (write-bytevector bytes)
     (write-bytevector nulls (current-output-port) 0 nnull)))
 
-(define (tar-poke-end)
+(define (tar-write-end)
   (write-bytevector nulls)
   (write-bytevector nulls))