diff --git a/Interact.hs b/Interact.hs
--- a/Interact.hs
+++ b/Interact.hs
@@ -211,11 +211,13 @@
 processCommand' IMMeta CmdToggleCacheOnly =
     not <$> gets cacheOnly >>= \c -> modify $ \ms -> ms {cacheOnly = c}
 
-processCommand' IMMeta (CmdRegister adjustReg) = void.runMaybeT $ do
+processCommand' IMMeta (CmdRegister _) = void.runMaybeT $ do
     regName <- mgetCurName
+    mauth <- gets curAuth
+    let isUs = maybe False ((==regName).authUser) mauth
     let inputPassword = (hashPassword regName <$>) $ MaybeT $ lift $
 	    textInput "Enter new password:" 64 True False Nothing Nothing
-    if adjustReg
+    if isUs
 	then msum [ do
 		confirmOrBail "Log out?"
 		modify $ \ms -> ms {curAuth = Nothing}
diff --git a/NEWS b/NEWS
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,8 @@
 This is an abbreviated summary; see the git log for gory details.
 
+0.6.1:
+    Fix stupid bug preventing registration via keyboard command.
+
 0.6:
     New scoring system - you don't get the point for a solution if the lock
 	owner has read your note.
diff --git a/Version.hs b/Version.hs
--- a/Version.hs
+++ b/Version.hs
@@ -11,4 +11,4 @@
 module Version where
 
 version :: String
-version = "0.6"
+version = "0.6.1"
diff --git a/intricacy.cabal b/intricacy.cabal
--- a/intricacy.cabal
+++ b/intricacy.cabal
@@ -1,5 +1,5 @@
 name:                intricacy
-version:             0.6
+version:             0.6.1
 synopsis:            A game of competitive puzzle-design
 homepage:            http://mbays.freeshell.org/intricacy
 license:             GPL-3