diff --git a/pkg/arvo/gen/hood/story-set.hoon b/pkg/arvo/gen/hood/story-set.hoon
index 2cc1b2c10..ae48c2633 100644
--- a/pkg/arvo/gen/hood/story-set.hoon
+++ b/pkg/arvo/gen/hood/story-set.hoon
@@ -1,9 +1,10 @@
+/-  *story
 ::
 ::::
   ::
 :-  %say
 |=  $:  [now=@da eny=@uvJ bec=beak]
-        [[syd=desk [title=@t body=@t] ~] cas=case ~]
+        [[syd=desk =prose ~] cas=case ~]
     ==
 ::
 ::  Add a commit message to a given case on a given desk (modifies in place) 
@@ -11,8 +12,7 @@
 =/  our  p.bec
 =?  cas  =(*case cas)  [%da now]  :: set current commit when cas not provided
 =/  tak  .^(tako:clay %cs /(scot %p our)/[syd]/(scot cas)/tako/~)
-=/  tale=(map tako:clay [@t @t])
-  .^((map tako:clay [@t @t]) %cx /(scot %p our)/[syd]/(scot %da now)/story)
-=.  tale  (~(put by tale) tak [title body])
+=/  tale=story  .^(story %cx /(scot %p our)/[syd]/(scot %da now)/story)
+=.  tale  (~(put ju tale) tak prose)
 :-  %helm-pass
 [%c [%info syd %& [/story %ins story+!>(tale)]~]]
\ No newline at end of file