diff --git a/web/src/Main.hs b/web/src/Main.hs
index 86087cb..342f396 100644
--- a/web/src/Main.hs
+++ b/web/src/Main.hs
@@ -52,9 +52,11 @@ main = do
                 [] -> do
                     S.setStatus Status.status404
 
-                    let page = ErrorView.render ("no data for page number " ++ (show id_))
+                    let message = ("no data for page number " ++ (show id_))
+                        page = ErrorView.render message
+                        title = ("Can't find page " ++ (show id_))
 
-                    S.html $ wrapMarkupStringTitle ("Can't find page " ++ (show id_)) page
+                    S.html $ wrapMarkupStringTitle title page
 
                 _ -> do
                     let title = "Thread page " ++ (show id_)