diff --git a/roguestar-engine.cabal b/roguestar-engine.cabal
--- a/roguestar-engine.cabal
+++ b/roguestar-engine.cabal
@@ -1,8 +1,8 @@
 name:                roguestar-engine
-version:             0.2.1
+version:             0.2.2
 license:             OtherLicense
 license-file:        LICENSE
-author:              Christopher Lane Hinson
+author:              Christopher Lane Hinson <lane@downstairspeople.org>
 maintainer:          Christopher Lane Hinson <lane@downstairspeople.org>
 
 category:            Game
@@ -16,7 +16,7 @@
                      the game stranded on an alien planet, fighting off an endless hoard of
                      hostile robots.
                      .
-                     The Darcs repository is available at <http://www.downstairspeople.org/darcs/roguestar-engine>.
+                     The git repository is available at <http://www.downstairspeople.org/git/roguestar-engine.git>.
 homepage:            http://roguestar.downstairspeople.org/
 
 build-depends:       base>3, containers, array, old-time, random, mtl, MaybeT
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -5,6 +5,7 @@
 import DB
 import System.Environment
 import System.Random
+import System.IO
 import Data.List
 import Tests
 import HierarchicalDatabase
@@ -15,7 +16,7 @@
 import GridRayCaster
 
 roguestar_version_number :: String
-roguestar_version_number = "0.2.1"
+roguestar_version_number = "0.2.2"
 
 roguestar_program_name :: String
 roguestar_program_name = "roguestar-engine"
diff --git a/src/Protocol.hs b/src/Protocol.hs
--- a/src/Protocol.hs
+++ b/src/Protocol.hs
@@ -26,17 +26,20 @@
 import Control.Monad.Error
 import Numeric
 import Turns
+import Data.IORef
 -- Don't call dbBehave, use dbPerformPlayerTurn
 import Behavior hiding (dbBehave)
 -- We need to construct References based on UIDs, so we cheat a little:
 import DBPrivate (Reference(..))
 
 mainLoop :: DB_BaseType -> IO ()
-mainLoop db0 = do next_command <- getLine
-		  db1 <- ioDispatch (words $ map toLower next_command) db0
-		  putStrLn "over"
-		  hFlush stdout
-		  mainLoop db1
+mainLoop db0 = 
+    do db <- newIORef db0
+       forever $
+           do next_command <- getLine
+	      writeIORef db =<< ioDispatch (words $ map toLower next_command) =<< readIORef db
+	      putStrLn "over"
+	      hFlush stdout
 
 done :: DB String
 done = return "done"