diff --git a/src/Idris/REPLParser.hs b/src/Idris/REPLParser.hs
index 5fa91eca2..59353386c 100644
--- a/src/Idris/REPLParser.hs
+++ b/src/Idris/REPLParser.hs
@@ -65,7 +65,7 @@ pCmd = do P.whiteSpace; try (do cmd ["q", "quit"]; eof; return Quit)
               <|> try (do cmd ["inline"]; P.whiteSpace; t <- P.fullExpr defaultSyntax; return (TestInline t))
               <|> try (do cmd ["doc"]; c <- P.constant; eof; return (DocStr (Right c)))
               <|> try (do cmd ["doc"]; n <- (P.fnName <|> (P.string "_|_" >> return falseTy)); eof; return (DocStr (Left n)))
-              <|> try (do cmd ["d", "def"]; some (P.char ' ') ; n <- P.fnName; eof; return (Defn n))
+              <|> try (do cmd ["d", "def"]; P.whiteSpace; n <- P.fnName; eof; return (Defn n))
               <|> try (do cmd ["total"]; do n <- P.fnName; eof; return (TotCheck n))
               <|> try (do cmd ["t", "type"]; do P.whiteSpace; t <- P.fullExpr defaultSyntax; return (Check t))
               <|> try (do cmd ["u", "universes"]; eof; return Universes)