diff --git a/src/T3/Web.hs b/src/T3/Web.hs
--- a/src/T3/Web.hs
+++ b/src/T3/Web.hs
@@ -121,7 +121,7 @@
   let name@(UserName un) = rreqName rreq
   srv <- server
   if T.null un
-    then return Nothing
+    then badRequest
     else do
       userKey <- liftIO genUserKey
       mUsers <- liftIO . atomically $ do
@@ -131,7 +131,7 @@
           then return Nothing
           else writeTVar (srvUsers srv) users' >> return (Just users')
       case mUsers of
-        Nothing -> return Nothing
+        Nothing -> badRequest
         Just users -> do
           storeUsers users
           return . Just $ RegisterResponse (UserCreds name userKey)
diff --git a/t3-server.cabal b/t3-server.cabal
--- a/t3-server.cabal
+++ b/t3-server.cabal
@@ -1,7 +1,7 @@
 name:              t3-server
 synopsis:            tic-tac-toe server
 description:         Please see README.md
-version:           0.1.0
+version:           0.1.1
 cabal-version:     >= 1.10
 build-type:        Simple
 license: BSD3