Continuation of fix in
(crip "strange author {(scow %p aut)}")
=. aut our.bol
?: =(aut hos.cir)
- ?. (~(has by stories) nom.cir)
- (ta-note (crip "have no story {(scow %tas nom.cir)}"))
+ ?: (~(has by stories) nom.cir)
(ta-record nom.cir hos.cir tot)
+ %- ta-note ::TODO avenue for abuse?
+ (crip "have no story {(scow %tas nom.cir)}")
(ta-transmit cir tot)
?. =(our.bol hos.cir) +>
(ta-record nom.cir aut tot)
