diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt
index de840d7..d97cf67 100644
--- a/libao/libao-async.rkt
+++ b/libao/libao-async.rkt
@@ -184,6 +184,7 @@
 (define (ao_clear_async* shm)
   (let ((q (ao-shm-queue shm)))
     (while (> (queue-length q) 0)
+           (displayln (format "queue-length: ~a" (queue-length q)))
            (let* ((elem (dequeue! q))
                   (buf (cadddr elem)))
              (free buf))))