anchor.diff:  
       
   analyze_and_print_linux_host_info(Version) ->
  -    case file:read_file_info("/etc/issue") of
  -        {ok, _} ->
  -            io:format("Linux: ~s"
  -                      "~n   ~s"
  -                      "~n",
  -                      [Version, string:trim(os:cmd("cat /etc/issue"))]);
  -        _ ->
  -            io:format("Linux: ~s"
  -                      "~n", [Version])
  -    end,
  +    Distro =
  +        case file:read_file_info("/etc/issue") of
  +            {ok, _} ->
  +                DistroStr = string:trim(os:cmd("cat /etc/issue")),
  +                io:format("Linux: ~s"
  +                          "~n   ~s"
  +                          "~n",
  +                          [Version, DistroStr]),
  +                case DistroStr of
  +                    "Wind River Linux" ++ _ ->
  +                        wind_river;
  +                    _ ->
  +                        other
  +                end;
  +            _ ->
  +                io:format("Linux: ~s"
  +                          "~n", [Version]),
  +                other
  +        end,
       Factor =
  -        case (catch linux_which_cpuinfo()) of
  +        case (catch linux_which_cpuinfo(Distro)) of
               {ok, {CPU, BogoMIPS}} ->
                   io:format("CPU: "
                             "~n   Model:          ~s"
  
positive.code:                     end;
                  _X ->
                      0
              end;
          _ ->
              0
      catch
          _:_:_ ->
              0
      end.
  
  
  
negative.code:     end.
                      
  
  linux_info_lookup(Key, File) ->
      try [string:trim(S) || S <- string:tokens(os:cmd("grep " ++ "\"" ++ Key ++ "\"" ++ " " ++ File), [$:,$\n])] of
          [Key, Value | _] ->
              Value;
          _ ->
              "-"
      catch
          _:_:_ ->
              "-"
      end.
      
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% Set kill timer
  