diff --git a/day-3.scm b/day-3.scm
index 94a5f7e..dc33fd1 100644
--- a/day-3.scm
+++ b/day-3.scm
@@ -8,8 +8,7 @@
       (lambda (index number)
 	(let iterate [(bit 0)]
 	  (when (< bit 12)
-	    (when (= 0 (bitwise-and number 
-				  (bitwise-arithmetic-shift-left 1 bit)))
+	    (when (not (bitwise-bit-set? number bit))
 	      (vector-set! zeroes bit 
 			   (+ 1 (vector-ref zeroes bit))))
 	    (iterate (+ 1 bit)))))