diff --git a/cabal-install/Distribution/Client/CmdClean.hs b/cabal-install/Distribution/Client/CmdClean.hs
index 2cfd7550e2e..46ae5b6129e 100644
--- a/cabal-install/Distribution/Client/CmdClean.hs
+++ b/cabal-install/Distribution/Client/CmdClean.hs
@@ -96,10 +96,6 @@ cleanAction CleanFlags{..} extraArgs _ = do
             when buildRootExists $ do
                 info verbosity ("Deleting build root (" ++ buildRoot ++ ")")
                 handleDoesNotExist () $ removeDirectoryRecursive buildRoot
-
-            when unpackedSrcRootExists $ do
-                info verbosity ("Deleting unpacked source root (" ++ unpackedSrcRoot ++ ")")
-                handleDoesNotExist () $ removeDirectoryRecursive unpackedSrcRoot
         else do
             let distRoot = distDirectory distLayout
 
diff --git a/cabal-install/changelog b/cabal-install/changelog
index eea9cbe8a48..bf1de64b036 100644
--- a/cabal-install/changelog
+++ b/cabal-install/changelog
@@ -1,6 +1,7 @@
 -*-change-log-*-
 
 2.4.0.1 (current bugfix version)
+	* new-clean no longer deletes dist-newstyle/src with `-s`. (#5699)
 	* 'new-install' now warns when failing to symlink an exe (#5602)
 	* Extend 'cabal init' support for 'cabal-version' selection (#5567)
 	* 'new-sdist' now generates tarballs with file modification