diff --git a/libao/libao.rkt b/libao/libao.rkt
index a04e4e0..f276a8b 100644
--- a/libao/libao.rkt
+++ b/libao/libao.rkt
@@ -110,6 +110,7 @@
       (let ((handle-num (ao-handle-handle-num handle)))
         (unless (ao-handle-closed handle)
           (set-ao-handle-closed! handle #t)
+          (ao_clear_async (ao-handle-async-player handle))
           (ao_stop_async (ao-handle-async-player handle))
           (let ((ao-device (hash-ref devices handle-num #f)))
             (if (eq? ao-device #f)