diff --git a/Assistant/Upgrade.hs b/Assistant/Upgrade.hs
index fd71897cad..aaf6a8478b 100644
--- a/Assistant/Upgrade.hs
+++ b/Assistant/Upgrade.hs
@@ -276,7 +276,6 @@ deleteFromManifest dir = do
 
 removeEmptyRecursive :: FilePath -> IO ()
 removeEmptyRecursive dir = do
-	print ("remove", dir)
 	mapM_ removeEmptyRecursive =<< dirContents dir
 	void $ tryIO $ removeDirectory dir