diff --git a/libao/libao.rkt b/libao/libao.rkt
index 72e6224..04747af 100644
--- a/libao/libao.rkt
+++ b/libao/libao.rkt
@@ -157,6 +157,7 @@
           (close-device #f ao-device))
         (let ((handle-num (ao-handle-handle-num handle)))
           (let ((ao-device (hash-ref devices handle-num #f)))
+            (displayln (format "ao-device = ~a" ao-device))
             (close-device handle ao-device))
           )
         )