anchor.diff:      Ns.
   
   recomment_forms_2(C, [Node | Ns], Insert) ->
  -    {L, Col, Ind, Text} = C,
  +    {L, Col, Ind, _PreTok, Text} = C,
       Min = node_min(Node),
       Max = node_max(Node),
       N = comment_delta(Text),
  
positive.code: 	form_list ->
  	    BadFormLocs = lists:flatten([lists:seq(L1,L2) ||{error, {_ErrInfo, {{L1,_},{L2,_}}}} 
  								<-refac_syntax:form_list_elements(Tree)]),
  	    Cs1 = [ {L, Col, Ind, Text} ||{L,Col, Ind, Text} <-Cs, not(lists:member(L, BadFormLocs))],
  	    Tree1 = refac_syntax:flatten_form_list(Tree),
  	    Node = build_tree(Tree1),
  	    %% Here we make a small assumption about the substructure of
  	    %% a `form_list' tree: it has exactly one group of subtrees.
  	    [Node1] = node_subtrees(Node),
  	  %%  List = filter_forms(node_subtrees(Node1)),  %% don't understand whey filter_forms is needed; HL
  	    List =node_subtrees(Node1),    %% 
         	    List1 = recomment_forms_1(Cs1, List, Insert),
  	    revert_tree(set_node_subtrees(Node,
  					  [set_node_subtrees(Node1,
  							     List1)]));
  	_ ->
  	    %% Not a form list - just call `recomment_tree' and
  	    %% append any leftover comments.
  	    {Tree1, Cs1} = recomment_tree(Tree, Cs),
  	    revert_tree(append_comments(Cs1, Tree1))
      end.
  
  
negative.code: 		    %% The whole node is on a single line (this
  		    %% should usually catch all leaf nodes), so we
  		    %% postfix the comment.
                      node_add_postcomment(C, Node);
  	       true ->
  		    %% The comment should be inserted in the
  		    %% subrange of the node, i.e., attached either
  