1 files changed, 1 insertions, 1 deletions
diff --git a/keysafe.hs b/keysafe.hs
index ae85ce0..311a598 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -175,7 +175,7 @@ restore ui secretkeydest = do
 
 validateName :: Name -> Maybe Problem
 validateName (Name n)
-	| B.length n < 6 = Just "The name should be at least 6 letters long."
+	| B.length n < 2 = Just "The name should be at least 2 letters long."
 	| otherwise = Nothing
 
 userName :: IO Name