diff --git a/libao.rkt b/libao.rkt
index f4f0af7..b6c7163 100644
--- a/libao.rkt
+++ b/libao.rkt
@@ -69,7 +69,7 @@
 
 (define (ao-valid-channels? c)
   (and (integer? c)
-       (>= 1 c)))
+       (>= c 1)))
 
 (define (ao-valid-format? f)
   (or (eq? f 'little-endian)