     after get-advice [ call ] each ;
 
 : call-around ( main word --  )
-    around get-advice tuck 
+    around get-advice [ cocreate ] map tuck 
     [ [ coresume ] each ] [ call ] [ reverse [ coresume ] each ] tri* ;
 
 : remove-advice ( name word loc --  )

    after advise ;

: advise-around ( quot name word --  )
    [ \ coterminate suffix cocreate ] 2dip
    around advise ;

: get-advice ( word type -- seq )


SYMBOLS: before after around advised ;

<PRIVATE
: advise ( quot name word loc --  )
    word-prop set-at ;
PRIVATE>
    
: advise-before ( quot name word --  )
    before advise ;
