diff --git a/app/Main.hs b/app/Main.hs
index 5f6d17f..fb70187 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -74,8 +74,12 @@ changeMasterPass = do
 quit :: S.StateT Status IO ()
 quit = return ()
 
-menu :: String -> [(String, S.StateT Status IO a)] -> S.StateT Status IO a
-menu title = reqState . R.prompt title . R.reqMenu . map menuItem
+menu
+  :: String
+  -> [(String, S.StateT Status IO a)]
+  -> S.StateT Status IO a
+menu title = reqState . R.prompt ("\n*** " ++ title ++ " ***") .
+  R.reqMenu . map menuItem
 
 menuItem :: (String, a) -> (String, R.Request a)
 menuItem (str, x) = (str, return x)