     [ f ] dip <annotation> select-tuple ;
 
 : paste ( id -- paste )
-    [ <paste> select-tuple ]
+    [ <paste-state> select-tuple ]
     [ f <annotation> select-tuples ]
     bi >>annotations ;
 

        ] >>validate

        [
            f <paste>
            [ deposit-entity-slots ]
            [ insert-tuple ]
            [ id>> paste-url <redirect> ]


        [
            [
                "id" value <paste-state> delete-tuples
                "id" value f <annotation> delete-tuples
            ] with-transaction
            pastebin-url <redirect>
