anchor.diff:  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} ->
  +    #mt_comment{post_id = PostId, id = CID, parents = Parents} = Comment->
         Path = parents_to_path(PostId, Parents),
  -      comment_body(#comment{
  +      comment_body(Comment, #comment{
           post_id = PostId,
           id = CID,
           parents = Parents,
           path = Path,
  -        level = length(Parents),
  -        body = Body});
  +        level = length(Parents)
  +      });
       _Other ->
         ?ERR("Bad comment record for key ~p: ~p", [CKey, _Other]),
         []
  
positive.code:   comment_tree(Comments, Tree ++ [E]).
  
  
  comment_body(#comment{post_id = PostId, id = Id, parents = Parents, path = _Path, level = Level, body = Body}) ->
    Margin = Level*50+50,
    Anchor = integer_to_list(Id),
    [
  
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 ->
  