diff --git a/gitbook/resultOption/traverseResult.md b/gitbook/resultOption/traverseResult.md
index da8e4fa9..f1f0ddff 100644
--- a/gitbook/resultOption/traverseResult.md
+++ b/gitbook/resultOption/traverseResult.md
@@ -63,7 +63,7 @@ let createPostRequestFromDto (dto : CreatePostRequestDto) = result {
     // Parse the location DTO option to a Location option,
     // returning an error if it's Some and invalid
     let! location =
-      dto.Location |> Option.traverseResult locationDtoToLocation
+      dto.Location |> Option.traverseResult locationFromDto
 
     let! tweet = Tweet.TryCreate dto.Tweet
     return {
@@ -73,4 +73,4 @@ let createPostRequestFromDto (dto : CreatePostRequestDto) = result {
   }
 ```
 
-See also the [example 2](../resultOption/map2.md#example-2) of ResultOption.map2.
\ No newline at end of file
+See also the [example 2](../resultOption/map2.md#example-2) of ResultOption.map2.