diff --git a/libao/libao-async.rkt b/libao/libao-async.rkt
index d62a52d..79a77a8 100644
--- a/libao/libao-async.rkt
+++ b/libao/libao-async.rkt
@@ -73,7 +73,7 @@
                  [(eq? command 'play)
                   (let ((at-second (cadr elem))
                         (duration (caddr elem))
-                        (buf-len (caddrr elem))
+                        (buf-len (cadddr elem))
                         (buf (car (cddddr elem)))
                         )
                     (mutex-lock (ao-shm-mutex shm))