         ] >>validate
 
         [
-            "parent" value <post> select-tuple
+            "parent" value <post-state> select-tuple
             author>> authorize-author
         ] >>authorize
 


        [
            [
                f <post> "author" value >>author select-tuples [ id>> delete-post ] each
                f f <comment> "author" value >>author delete-tuples
            ] with-transaction
            "author" value posts-by-url <redirect>

        ] >>validate

        [
            f <post-state>
                dup { "title" "content" } to-object
                username >>author
                now >>date
