anchor.diff:              analyze_and_print_win_host_info(Version);
           _ ->
               io:format("OS Family: ~p"
  -                      "~n   OS Type:               ~p"
  -                      "~n   Version:               ~p"
  -                      "~n   Num Online Schedulers: ~s"
  -                      "~n", [OsFam, OsName, Version, str_num_schedulers()]),
  +                      "~n   OS Type:                 ~p"
  +                      "~n   Version:                 ~p"
  +                      "~n   Num Online Schedulers:   ~s"
  +                      "~n   TS Extra Platform Label: ~s"
  +                      "~n", [OsFam, OsName, Version, str_num_schedulers(),
  +                             ts_extra_flatform_label()]),
               {num_schedulers_to_factor(), []}
       end.
  +
  +ts_extra_flatform_label() ->
  +    case os:getenv("TS_EXTRA_PLATFORM_LABEL") of
  +        false -> "-";
  +        Val   -> Val
  +    end.
  +
   
   linux_which_distro(Version) ->
       case file:read_file_info("/etc/issue") of
  
positive.code:                     end;
                  X ->
                      io:format("Linux: ~s"
                                "~n   ~p"
                                "~n",
                                [Version, X]),
                      other
              end;
          _ ->
  
negative.code:                      S <- string:tokens(os:cmd("cat /etc/issue"), [$\n])] of
                  [DistroStr|_] ->
                      io:format("Linux: ~s"
                                "~n   Distro:                  ~s"
                                "~n   TS Extra Platform Label: ~s"
                                "~n",
                                [Version, DistroStr, ts_extra_flatform_label()]),
                      case DistroStr of
                          "Wind River Linux" ++ _ ->
                              wind_river;
  