diff --git a/CHANGELOG.md b/CHANGELOG.md
index 77d17d8..535c6a4 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,8 @@
 # Changelog for haboli
 
+## upcoming
+* fix nick of example bot in readme
+
 ## 0.3.1.0
 * add `Haboli.Euphoria` module
 * add proper README
diff --git a/README.md b/README.md
index b50dd81..cbe340e 100644
--- a/README.md
+++ b/README.md
@@ -30,7 +30,7 @@ pingPongBot :: Client () ()
 pingPongBot = forever $ do
   event <- respondingToPing nextEvent
   case event of
-    EventSnapshot _ -> void $ nick "TreeBot"
+    EventSnapshot _ -> void $ nick "PingPongBot"
     EventSend e ->
       let msg = sendMessage e
       in  when (msgContent msg == "!ping") $