         swap >>id
         swap >>parent ;
 
-: annotation ( id -- annotation )
+: lookup-annotation ( id -- annotation )
     [ f ] dip <annotation> select-tuple ;
 
 : paste ( id -- paste )


: <raw-annotation-action> ( -- action )
    <action>
        [ validate-integer-id "id" value annotation from-object ] >>init
        [ "contents" value "text/plain" <content> ] >>display ;

: <delete-annotation-action> ( -- action )

        [ { { "id" [ v-number ] } } validate-params ] >>validate

        [
            f "id" value lookup-annotation
            [ delete-tuples ]
            [ parent>> paste-url <redirect> ]
            bi
