anchor.diff:          "   </DirectoryRef>\n"),
   
       ok = file:write(FileH,
  -        "   <Icon Id='dderl.ico' SourceFile='dderl.ico' />\n"),
  -
  -    ok = file:write(FileH,
  -        "   <Property Id='ARPPRODUCTICON' Value='dderl.ico' />"),
  +        "   <Icon Id='"++Proj++".ico' SourceFile='"++Proj++".ico' />\n"),
  +
  +    ok = file:write(FileH,
  +        "   <Property Id='ARPPRODUCTICON' Value='"++Proj++".ico' />"),
       
       ok = file:write(FileH,
           "</Product>\n"
  
positive.code:         "       <Directory Id='"++ID++"' Name='"?COMPANY"'>\n"
          "         <Directory Id='INSTALLDIR' Name='"++Product++"'>\n"),
  
      walk_release(Verbose, Tab, FileH, Root),
      
      ok = file:write(FileH,
          "         </Directory> <!-- PRODUCT -->\n"
          "       </Directory> <!-- COMPANY -->\n"
          "     </Directory> <!-- ProgramFilesFolder -->\n"),
  
      % Property references
      [BootDir] = dets:select(Tab, [{#item{type=dir, name="1.0.7", _='_'}, [],
                                     ['$_']}]),
      [EscriptExe] = dets:select(Tab, [{#item{type=component, name="escript.exe",
                                              _='_'}, [], ['$_']}]),
      [EditConfEs] = dets:select(Tab, [{#item{type=component,
                                               name="editconfs.escript", _='_'},
                                         [], ['$_']}]),
      [Comp] = dets:select(Tab, [{#item{type=component, name="dderl.cmd", _='_'},
                                  [], ['$_']}]),
      [CItm] = dets:select(Tab, [{#item{type=file, name="dderl.cmd",
                                        guid=undefined, _='_'}, [], ['$_']}]),
  
      {ProgFolderId, ProgFolderGuId} = get_id(Verbose, Tab, component, 'PROGSMENUFOLDER_GUID', undefined),
  
negative.code:     [begin
          {ok, _} = file:copy(filename:join(ProjDir,F),
                          filename:join(RootDir,F))
      end || F <- ["rebar.config", "LICENSE", "README.md",
                   "RELEASE-"++string:to_upper(Proj)++".md"]],
      RebarCmd = os:find_executable("rebar"),
      ?OSCMD("cp -L \""++RebarCmd++"\" \""++RootDir++"\""),
      ?OSCMD("cp -L \""++filename:rootname(RebarCmd)++"\" \""++RootDir++"\""),
  