diff --git a/Arm/Debugger.hs b/Arm/Debugger.hs
--- a/Arm/Debugger.hs
+++ b/Arm/Debugger.hs
@@ -71,9 +71,9 @@
                if not isRunning
                  then return ()
                  else do putStr "dbg: "
-                         cmd <- getChar
+                         cmd <- getLine 
                          putStrLn ""
-                         case cmd of
+                         case head cmd of
                            'm' -> do showMem (radix dbgs) cpu
                                      loop cpu dbgs
                            'r' -> do showRegs (radix dbgs) cpu
diff --git a/HARM.cabal b/HARM.cabal
--- a/HARM.cabal
+++ b/HARM.cabal
@@ -1,5 +1,5 @@
 Name:		HARM
-Version:	0.1.2
+Version:	0.1.3
 Cabal-Version:  >= 1.2
 License:	OtherLicense
 License-File:	LICENSE.txt