anchor.diff:          "       </Directory>\n"
           "     </Directory>\n"),
   
  -    {RegId, RegGuId} = get_id(component, "dderl", filename:join([Root,"rel"])),
  +    {RegId, RegGuId} = get_id(component, "dderl"
  +                              , filename:join([Root,"rel"])),
       ok = file:write(FileH,
           "     <Directory Id='ProgramMenuFolder' Name='Programs'>\n"
  -        "        <Directory Id='"++RegId++"' Name='"?PRODUCT" "?VERSION"'>\n"
  +        "        <Directory Id='"++RegId++"'"
  +                                " Name='"?PRODUCT" "?VERSION"'>\n"
           "           <Component Id='"++RegId++"' Guid='"++RegGuId++"'>\n"
           "               <RemoveFolder Id='"++RegId++"' On='uninstall' />\n"
  -        "               <RegistryValue Root='HKCU' Key='Software\\[Manufacturer]\\[ProductName]'"
  -                                            " Type='string' Value='' KeyPath='yes' />\n"
  +        "               <RegistryValue Root='HKCU'"
  +                            " Key='Software\\[Manufacturer]\\[ProductName]'"
  +                            " Type='string' Value='' KeyPath='yes' />\n"
           "           </Component>\n"
           "       </Directory>\n"
           "     </Directory>\n\n"),
  
positive.code:         "   <UIRef Id='WixUI_Mondo' />\n"
          "   <UIRef Id='WixUI_ErrorProgressText' />\n\n"),
  
      [Item] = dets:select(?TAB, [{#item{type=file, name="dderl.cmd"
                                         , guid=undefined, _='_'}
                                   , [], ['$_']}]),
  
      ok = file:write(FileH,
          "   <CustomAction Id='InstallService' FileKey='"++Item#item.id++"'"
                  " ExeCommand='install' Execute='commit' />\n"
          "   <CustomAction Id='StartService' FileKey='"++Item#item.id++"'"
                  " ExeCommand='start' Execute='commit' />\n"),
  
      ok = file:write(FileH,
          "   <InstallExecuteSequence>\n"
          "      <Custom Action='InstallService' After='InstallFiles' />\n"
          "      <Custom Action='StartService' Before='InstallFiles' />\n"
          "   </InstallExecuteSequence>\n\n"
          "</Product>\n"
          "</Wix>"),
      ok = file:close(FileH),
      {ok, CurDir} = file:get_cwd(),
      ok = file:set_cwd(filename:join([Root,"rel", "wixsetup"])),
  
negative.code: -define(TRACE,  io:format("TRACE ~p~n", [?LINE])).
  
  -record(item, { id
                , type % file | dir | component
                , guid
                , name
                , path
  