     after advise ;
 
 : advise-around ( quot name word --  )
-    [ \ coterminate suffix cocreate ] 2dip
+    [ \ coterminate suffix ] 2dip
     around advise ;
 
 : get-advice ( word type -- seq )

    after get-advice [ call ] each ;

: call-around ( main word --  )
    around get-advice tuck 
    [ [ coresume ] each ] [ call ] [ reverse [ coresume ] each ] tri* ;

: remove-advice ( name word loc --  )


SYMBOLS: before after around advised ;

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