anchor.diff:    id,
     path = "",
     parents = [],
  -  level = 0,
  -  body = ""
  +  level = 0
   }).
   
   main() -> #template { file="./site/templates/metalkia/bare.html" }.
  
positive.code: comment_tree([#mt_comment_ref{parents = _Parents, comment_key = CKey}|Comments], Tree) ->
    E =
    case mtc_entry:sget(mt_comment, CKey) of
      #mt_comment{post_id = PostId, id = CID, parents = Parents, body = Body} ->
        Path = parents_to_path(PostId, Parents),
        comment_body(#comment{
          post_id = PostId,
          id = CID,
          parents = Parents,
          path = Path,
          level = length(Parents),
          body = Body});
      _Other ->
        ?ERR("Bad comment record for key ~p: ~p", [CKey, _Other]),
        []
  
negative.code:       NewId = Path++"-"++CID,
        ?PRINT(NewId),
        wf:insert_bottom("pan-"++Path,
          comment_body(Comment,
            #comment{
              post_id = ?a2b(PostId),
              id = CID,
              parents = Parents ++ [CID],
              path = NewId,
              level = list_to_integer(Level)+1}
        )),
        wf:replace("comment-items-" ++ Path, default_items(Path));
      true ->
  