diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt
index d3bd0ff..0fba0e1 100644
--- a/libao/libao-async.rkt
+++ b/libao/libao-async.rkt
@@ -188,7 +188,7 @@
            ;(let* ((elem (dequeue! q))
                   ;(buf (car (cddddr elem))))
              ;(free buf))))
-	   (dequeue! q))
+	   (dequeue! q)))
   (set-ao-shm-queue! shm (make-queue))
   (set-ao-shm-bufsize! shm 0)
   )