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

        swap >>id
        swap >>parent ;

: annotation ( id -- annotation )
    [ f ] dip <annotation> select-tuple ;

: paste ( id -- paste )

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

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