anchor.diff:                          end, [],
                          filename:split(Dir)),
               FilePath = filename:join([".." | FilePathNoRel]++[F]),
  -            {Id, GuID} = get_id(component, F, Dir),
  -            {ok, FileId} = get_id(file, F, Dir),
  +            {Id, GuID} = get_id(Verbose, component, F, Dir),
  +            {ok, FileId} = get_id(Verbose, file, F, Dir),
               ok = file:write(FileH, lists:duplicate(N+3,32)++
                   "<Component Id='"++Id++"' Guid='"++GuID++"'>\n"
                   ++lists:duplicate(N+3,32)++
  
positive.code:         [#item{} = Item] ->
              {ok, Item#item.id}
      end;
  get_id(undefined, Field, undefined) ->
      Id = "id_"++?H(Field),
      case dets:lookup(?TAB, Id) of
          [] ->
  
negative.code:         "         <Directory Id='INSTALLDIR' Name='"?PRODUCT
                                              " "?VERSION"'>\n"),
  
      walk_release(Verbose, FileH, Root),
  
      ok = file:write(FileH,
          "         </Directory>\n"
          "       </Directory>\n"
          "     </Directory>\n"),
  
      {RegId, RegGuId} = get_id(Verbose, component, "dderl"
                                , filename:join([Root,"rel"])),
      ok = file:write(FileH,
          "     <Directory Id='ProgramMenuFolder' Name='Programs'>\n"
  