trouble: report source of OTA instead of parent

pkg/arvo/app/hood.hoon

@@ -39,7 +39,14 @@
   [d this]
 ::
 ++  on-leave  on-leave:def
-++  on-peek   on-peek:def
+++  on-peek
+  |=  =path
+  ~&  peeking=path
+  ^-  (unit (unit cage))
+  ?+  path  (on-peek:def path)
+    [* %kiln *]  (on-peek:kiln-core path)
+  ==
+::
 ++  on-save   !>(state)
 ++  on-load
   |=  =old-state=vase

pkg/arvo/gen/trouble.hoon

@@ -43,7 +43,12 @@
   ==
 ::
 ++  base-hash
-  =/  parent  (scot %p (sein:title our now our))
-  =+  .^(=cass:clay %cs /[parent]/kids/1/late/foo)
-  .^(@uv %cz /[parent]/kids/(scot %ud ud.cass))
+  =+  .^  ota=(unit [=ship =desk =aeon:clay])
+          %gx  /(scot %p our)/hood/(scot %da now)/kiln/ota/noun
+      ==
+  ?~  ota
+    *@uv
+  =/  parent  (scot %p ship.u.ota)
+  =+  .^(=cass:clay %cs /[parent]/[desk.u.ota]/1/late/foo)
+  .^(@uv %cz /[parent]/[desk.u.ota]/(scot %ud ud.cass))
 --

pkg/arvo/lib/hood/kiln.hoon

@@ -104,6 +104,13 @@
   =.  +<+.$.abet  old
   ..abet
 ::
+++  on-peek
+  |=  =path
+  ^-  (unit (unit cage))
+  ?.  ?=([%x %kiln %ota ~] path)
+    [~ ~]
+  ``noun+!>(ota)
+::
 ++  poke-commit
   |=  [mon/kiln-commit auto=?]
   =<  abet