anchor.diff:      Dist2 =  incr_nodes(val({Frag, ram_copies}), Dist),
       Dist3 =  incr_nodes(val({Frag, disc_copies}), Dist2),
       Dist4 =  incr_nodes(val({Frag, disc_only_copies}), Dist3),
  -    count_frag(Frags, Dist4);
  +    Dist5 =  incr_nodes(val({Frag, external_copies}), Dist4),
  +    count_frag(Frags, Dist5);
   count_frag([], Dist) ->
       Dist.
   
  
positive.code:     %% Add empty fragments
      CommonProps = [{base_table, Tab}],
      Cs2 = Cs#cstruct{frag_properties = lists:sort(CommonProps)},
      expand_frag_cstructs(N, NR, ND, NDO, Cs2, Pool, Pool, FH, Mode).
  
  verify_n_fragments(N, Cs, Mode) when is_integer(N), N >= 1 ->
      case Mode of
  	create ->
  	    Cs#cstruct{ram_copies = [],
  		       disc_copies = [],
  		       disc_only_copies = []};
  	activate  ->
  	    Reason = {combine_error, Cs#cstruct.name, {n_fragments, N}},
  	    mnesia_schema:verify(1, N, Reason),
  
negative.code: 			 {bad_type, Tab, {n_disc_copies, ND}}),
      mnesia_schema:verify(true, PosInt(NDO),
  			 {bad_type, Tab, {n_disc_only_copies, NDO}}),
      mnesia_schema:verify(true, PosInt(NExt),
  			 {bad_type, Tab, {n_external_copies, NDO}}),
      
      %% Verify n_fragments
      Cs2 = verify_n_fragments(N, Cs, Mode),
  