diff --git a/pkg/arvo/gen/hood/story-remove.hoon b/pkg/arvo/gen/hood/story-remove.hoon
index 1059403f6..925b37bc4 100644
--- a/pkg/arvo/gen/hood/story-remove.hoon
+++ b/pkg/arvo/gen/hood/story-remove.hoon
@@ -4,10 +4,10 @@
 /-  *story
 :-  %say
 |=  $:  [now=@da eny=@uvJ bec=beak]
-        [[syd=desk ~] cas=case ~]
+        [[syd=desk ~] cas=case prz=prose ~]
     ==
 ::
-::  Remove any commit message(s) for a given case and desk 
+::  Remove any commit message(s) for a given desk, optionally targeting a specific case or prose
 ::
 ::  XX: story set and story init both have desk and case as optional.
 ::      however, it seems a bit odd to allow both optional here
@@ -18,6 +18,9 @@
 =?  cas  =(*case cas)  da+now  :: use current commit if cas not provided
 =/  tak                .^(tako:clay %cs /(scot %p our)/[syd]/(scot cas)/tako/~)
 =/  tale=story         .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
-=.  tale               (~(del ju tale) tak)
+=.  tale
+  ?:  =(*prose prz)
+    (~(del by tale) tak)
+  (~(del ju tale) tak prz)
 :-  %helm-pass
 [%c [%info syd %& [/story %ins story+!>(tale)]~]]
\ No newline at end of file