diff --git a/rmacs/buffer.rkt b/rmacs/buffer.rkt
index 6f3a8d9..2ad8a1a 100644
--- a/rmacs/buffer.rkt
+++ b/rmacs/buffer.rkt
@@ -33,6 +33,7 @@
          buffer-mark
          buffer-mark-pos*
          buffer-mark-pos
+         buffer-pos
          buffer-mark!
          buffer-clear-mark!
          buffer-move-mark!
@@ -270,6 +271,9 @@
   (or (buffer-mark-pos* buf mtype)
       (error what "Mark type ~v not found; available mark types ~v" mtype (buffer-mark-types buf))))
 
+(define (buffer-pos buf pos-or-mtype)
+  (->pos buf pos-or-mtype 'buffer-pos))
+
 (define (buffer-mark! buf mtype pos-or-mtype #:value [value #t])
   (buffer-lift replace-mark buf mtype (->pos buf pos-or-mtype 'buffer-mark!) value))