diff --git a/src/Mulkup/Bupstash.hs b/src/Mulkup/Bupstash.hs
index 8804593..22ae70e 100644
--- a/src/Mulkup/Bupstash.hs
+++ b/src/Mulkup/Bupstash.hs
@@ -79,7 +79,8 @@
         return x
 
   BupRemove ids -> do
-    procs "bupstash" ["rm", "--ids-from-stdin"] (select (map unsafeTextToLine ids))
+    forM_ ids $ \id' -> do
+      procs "bupstash" ["rm", labelArg ("id", id')] empty
 
   where
     getHost :: Member (Reader MulkupConfig) r => Sem r Text