diff --git a/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs b/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs
index 4ea450f538a..09cd1b946b0 100644
--- a/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs
+++ b/cabal-install/src/Distribution/Client/Init/Interactive/Command.hs
@@ -137,7 +137,7 @@ createProject v pkgIx srcDb initFlags = do
       return $ ProjectSettings
         (mkOpts comments cabalSpec) pkgDesc (Just libTarget)
         (Just exeTarget) testTarget
-    
+
     TestSuite -> do
       -- the line below is necessary because if both package type and test flags
       -- are *not* passed, the user will be prompted for a package type (which
@@ -145,7 +145,7 @@ createProject v pkgIx srcDb initFlags = do
       -- TestSuite target with initializeTestSuite set to NoFlag, thus avoiding the prompt.
       let initFlags' = initFlags { initializeTestSuite = Flag True }
       testTarget <- genTestTarget initFlags' pkgIx
-      
+
       comments <- noCommentsPrompt initFlags'
 
       return $ ProjectSettings
@@ -308,9 +308,7 @@ packageNamePrompt srcDb flags = getPackageName flags $ do
       then do
         don'tUseName <- promptYesNo (promptOtherNameMsg n) (DefaultPrompt True)
         if don'tUseName
-        then do
-          putStrLn (inUseMsg n)
-          go defName
+        then go defName
         else return n
       else return n