diff --git a/Data/List/PointedList.hs b/Data/List/PointedList.hs
--- a/Data/List/PointedList.hs
+++ b/Data/List/PointedList.hs
@@ -178,7 +178,7 @@
 find x pl = find' ((x ==) . focus) $ positions pl
   where find' pred (PointedList a b c) =
           if pred b then Just b
-                    else List.find pred (a ++ c)
+                    else List.find pred (merge a c)
         merge []     ys = ys
         merge (x:xs) ys = x : merge ys xs
 
diff --git a/pointedlist.cabal b/pointedlist.cabal
--- a/pointedlist.cabal
+++ b/pointedlist.cabal
@@ -1,5 +1,5 @@
 Name:          pointedlist
-Version:       0.3.4
+Version:       0.3.5
 Synopsis:      A zipper-like comonad which works as a list, tracking a position.
 Category:      Data
 Description: