diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md
index 2d8c5a7..3b89078 100644
--- a/Algo/Courses/Chapter 6 - Lists (Exercises).md	
+++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md	
@@ -37,7 +37,7 @@ val count = 'a -> 'a list -> int = <fun>
 (* Correction *)
 # let search x = function
 	| [] -> false
-	| e::t when x = e -> true
+	| e::t -> x = e || search x t
 	| _::t -> search x t ;;
 val search 'a -> 'a list -> bool = <fun>
 ```