diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,10 @@
 # Release history for stack-clean-old-work
 
+## 0.4.3 (2021-11-23)
+- 'delete-work' now prints ".stack-work" would be deleted
+- prompts now print what would be deleted
+- '--recursive' now prints dirs with '/' appended
+
 ## 0.4.2 (2021-11-22)
 - add optional --os-system to fix #7
 - list/size snapshots before compilers for --global
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -103,7 +103,7 @@
               else listStackSubdirs
       forM_ dirs $ \dir ->
         withCurrentDirectory dir $ do
-        putStrLn $ "\n" ++ takeFileName dir
+        putStrLn $ "\n" ++ takeFileName dir ++ "/"
         act
     Nothing -> act
 
diff --git a/src/Remove.hs b/src/Remove.hs
--- a/src/Remove.hs
+++ b/src/Remove.hs
@@ -23,6 +23,9 @@
 
 prompt :: Deletion -> String -> IO ()
 prompt deletion str =
-  when (isDelete deletion) $ do
-  putStr $ "Press Enter to delete " ++ str ++ ": "
-  void getLine
+  if isDelete deletion
+  then do
+    putStr $ "Press Enter to delete " ++ str ++ ": "
+    void getLine
+  else
+    putStrLn $ str ++ " would be deleted"
diff --git a/src/Snapshots.hs b/src/Snapshots.hs
--- a/src/Snapshots.hs
+++ b/src/Snapshots.hs
@@ -175,5 +175,5 @@
 
 removeStackWork :: Deletion -> IO ()
 removeStackWork deletion = do
-  Remove.prompt deletion "this dir"
+  Remove.prompt deletion ".stack-work"
   Remove.doRemoveDirectory deletion ".stack-work"
diff --git a/stack-clean-old.cabal b/stack-clean-old.cabal
--- a/stack-clean-old.cabal
+++ b/stack-clean-old.cabal
@@ -1,5 +1,5 @@
 name:                stack-clean-old
-version:             0.4.2
+version:             0.4.3
 synopsis:            Clean away old stack build artefacts
 description:
         A tool for removing old .stack-work/install builds and