diff --git a/ui/src/Page/Monitor.elm b/ui/src/Page/Monitor.elm
index 7410766..d892c13 100644
--- a/ui/src/Page/Monitor.elm
+++ b/ui/src/Page/Monitor.elm
@@ -49,7 +49,7 @@ update msg model =
         MessageReceived value ->
             case D.decodeValue (MessageHeader.decoder |> D.at [ "detail" ]) value of
                 Ok header ->
-                    ( { model | messages = header :: model.messages }
+                    ( { model | messages = header :: List.take 500 model.messages }
                     , Cmd.none
                     )