diff --git a/libao-async-ffi-racket.rkt b/libao-async-ffi-racket.rkt
index 04c1c79..a99e480 100644
--- a/libao-async-ffi-racket.rkt
+++ b/libao-async-ffi-racket.rkt
@@ -765,6 +765,8 @@
   )
 
 (define (ao_pause_async h paused)
+  (when (integer? paused)
+    (set! paused (not (= paused 0))))
   (dbg-sound "ao_pause_async ~a" paused)
   (sync-log-sound)
   (if (ao-handle-paused h)