diff --git a/lazy-search.cabal b/lazy-search.cabal
--- a/lazy-search.cabal
+++ b/lazy-search.cabal
@@ -1,5 +1,5 @@
 name:                lazy-search
-version:             0.1.2.0
+version:             0.1.2.1
 synopsis:            Finds values satisfying a lazy predicate
 description:         
   This library can be used as a property based testing driver, and more
diff --git a/src/Control/Search.hs b/src/Control/Search.hs
--- a/src/Control/Search.hs
+++ b/src/Control/Search.hs
@@ -503,7 +503,7 @@
   return (go xs 0)
   where go []           n      = Left n
         go ((b,a):_)    _ | b  = Right a
-        go (_    :xs')  n      = go xs' (n+1)
+        go (_    :xs')  n      = go xs' $! (n+1)
  
 -- Count the domain of a function
 countdom :: Enumerable a => (a -> b) -> Count a