diff --git a/src/Dodge/Creature/Picture.hs b/src/Dodge/Creature/Picture.hs
index 25a14a9be..b7d8c6589 100644
--- a/src/Dodge/Creature/Picture.hs
+++ b/src/Dodge/Creature/Picture.hs
@@ -11,14 +11,14 @@ module Dodge.Creature.Picture
     , picAtCrPosNoRot
     ) where
 import Dodge.Data
-import Dodge.Base
+--import Dodge.Base
 import Dodge.Creature.Test
-import Dodge.Render.InfoBox
+--import Dodge.Render.InfoBox
 --import Dodge.Render.List
 --import Dodge.Creature.AlertLevel.Data
 --import Dodge.Picture.Layer
 import Dodge.Clock
-import Dodge.Debug.Picture
+--import Dodge.Debug.Picture
 import Picture
 import Geometry
 import Shape
diff --git a/src/Dodge/Render/InfoBox.hs b/src/Dodge/Render/InfoBox.hs
index 4ff24c320..2a7079a42 100644
--- a/src/Dodge/Render/InfoBox.hs
+++ b/src/Dodge/Render/InfoBox.hs
@@ -15,6 +15,7 @@ import Geometry
 renderInfoListAt :: Float -> Float -> Configuration -> World -> (Point2,[String]) -> Picture
 renderInfoListAt x y cfig w (p,ss) = renderListAt x y cfig (zip ss (repeat yellow))
     <> winScale cfig (color yellow $ lConnect (V2 (x-hw) (hh-20-y)) (worldPosToScreen w p))
+    <> listCursorNSW x y cfig 0 yellow 19 (length ss)
   where
     hw = halfWidth cfig
     hh = halfHeight cfig