diff --git a/antagonist.cabal b/antagonist.cabal
--- a/antagonist.cabal
+++ b/antagonist.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.14
+version:             0.1.0.15
 
 -- A short (one-line) description of the package.
 synopsis:            A web interface to Antisplice dungeons.
diff --git a/server/Web/Antagonist/Server.hs b/server/Web/Antagonist/Server.hs
--- a/server/Web/Antagonist/Server.hs
+++ b/server/Web/Antagonist/Server.hs
@@ -84,8 +84,8 @@
 getPrompt :: MonadIO m => SessionState -> m String
 getPrompt ss = do
   u <- liftIO $ mutctime
-  ((ps,_),_) <- liftIO $ runRecorderT $ runSession (return ()) ss $ expand $
-                formatTime defaultTimeLocale "%R $user #{health}H#?{ #{otitle} #{ohealth}H}" u
+  ((ps,_),_) <- liftIO $ runRecorderT $ runSession (return ()) ss $ expand <=< expand $
+                formatTime defaultTimeLocale "%R $prompt" u
   return ps
 
 getPlayR :: Yesod master => HandlerT SingleUserSub (HandlerT master IO) Html