diff --git a/Game/Antisplice/Dungeon/Ironforge.hs b/Game/Antisplice/Dungeon/Ironforge.hs
--- a/Game/Antisplice/Dungeon/Ironforge.hs
+++ b/Game/Antisplice/Dungeon/Ironforge.hs
@@ -104,3 +104,4 @@
     setStatM CooldownDuration 1000
     addStereo steDef
     modifyCurrency money (+2000)
+  mputv "prompt" $ Literal "${user} #{health}H \\$#{money/100}.#{money%100}#?{ #{otitle} #{ohealth}H}"
diff --git a/Game/Antisplice/Dungeon/Ironforge/Cambridge.hs b/Game/Antisplice/Dungeon/Ironforge/Cambridge.hs
--- a/Game/Antisplice/Dungeon/Ironforge/Cambridge.hs
+++ b/Game/Antisplice/Dungeon/Ironforge/Cambridge.hs
@@ -97,8 +97,9 @@
       ctorMob "Karl-Heinz" ["kalle","karl-heinz","teacher"] "Karl-Heinz is an old maths teacher. Strange, but harmless." ["strange","harmless","old"]
       ctorRoute [stationC,broeleC,broele1EC,broeleC,broele1WC,broele2WC,broele1WC,broeleC] 10000
 
-  -- CAMBRIDGE : JAIL
+  -- CAMBRIDGE : JAIL : YOUR CELL
   cellJ <- constructRoom $ ctorRoom "Your Cell" "This is the cell they assigned to you. Pretty small, but it will suffice."
+  
 
   -- CAMBRIDGE : SUPERMARKET
   cartA <- newAtom
@@ -145,7 +146,7 @@
           return ()
     in Action pq h
 
-  -- CAMBRIDGE : SUPERMARKET PRODUCE SECTION
+  -- CAMBRIDGE : SUPERMARKET : PRODUCE SECTION
   let regGood :: (MonadAtoms m,MonadVocab m) => [Feature] -> KindId -> NodeId -> String -> String -> [String] -> [String] -> Int -> ObjectT m () -> m (Atom ObjectState)
       regGood f k r t d ns as p m = do
         a <- newAtom
@@ -179,7 +180,7 @@
   withRoom produceM $ mapM_ instanciateForm [fCabbage, fCarrot, fCereliac, fLeek, fBeetroot, fPotato, fApple, fBanana]
   bipath superMarket produceM West
 
-  -- CAMBRIDGE : SUPERMARKET BEVERAGES SECTION
+  -- CAMBRIDGE : SUPERMARKET : BEVERAGES SECTION
   beveragesM <- constructRoom $ do
     ctorRoom "Beverages Section" "The variety of beverages here is not that large. They offer water, apple juice, orange lemonade, beer and vodka."
   fWater <- regGood [Drinkable] kWater beveragesM "a bottle of water" "This water is clear and non-sparkling."
@@ -195,7 +196,7 @@
   withRoom beveragesM $ mapM_ instanciateForm [fWater,fBeer,fAppleJuice,fVodka,fOrangeLemonade]
   bipath superMarket beveragesM North
     
-  -- CAMBRIDGE : AI LAB ENTRANCE
+  -- CAMBRIDGE : AI LAB : ENTRANCE
   janA <- newAtom
   putAtom janA True
   entranceL <- constructRoom $ do
@@ -207,7 +208,7 @@
   withRoom broele1WC $ addRoomDesc "To the south you see the MIT's AI Lab."
   bipath broele1WC entranceL South
 
-  -- CAMBRIDGE : AI LAB MAIN ROOM
+  -- CAMBRIDGE : AI LAB : MAIN ROOM
   mainRoomL <- constructRoom $ do
     ctorRoom "Main Room" "This is the AI Lab's main room."
   guardedPath entranceL mainRoomL South $ liftM not $ getAtom janA
diff --git a/Game/Antisplice/Dungeon/Ironforge/Kinds.hs b/Game/Antisplice/Dungeon/Ironforge/Kinds.hs
--- a/Game/Antisplice/Dungeon/Ironforge/Kinds.hs
+++ b/Game/Antisplice/Dungeon/Ironforge/Kinds.hs
@@ -83,6 +83,6 @@
 
 getCurrencies :: Constructor Currencies
 getCurrencies = do
-  money <- registerCurrency "Money" "Money is measured in Iron Dollars. You can pay with this."
+  money <- registerCurrency "money" "Money is measured in Iron Dollars. You can pay with this."
   return $ Currencies
     money
diff --git a/ironforge.cabal b/ironforge.cabal
--- a/ironforge.cabal
+++ b/ironforge.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.25
+version:             0.1.0.28
 
 -- A short (one-line) description of the package.
 synopsis:            A technical demo for Antisplice.