diff --git a/libao/libao.rkt b/libao/libao.rkt
index e237dff..72e6224 100644
--- a/libao/libao.rkt
+++ b/libao/libao.rkt
@@ -233,7 +233,7 @@
 
 (define (ao-pause handle pause)
   (if (eq? libao-async-mode 'ffi)
-      (ffi:ao_pause_async (ao-handle-async-player handle) pause)
+      (ffi:ao_pause_async (ao-handle-async-player handle) (if (eq? pause #f) 0 1))
       (scm:ao_pause_async (ao-handle-async-player handle) pause)
       ))