anchor.diff:      {ok, CPU};
   
   linux_which_cpuinfo(wind_river) ->
  -    CPU =
  +    Model =
           case linux_cpuinfo_model() of
               "-" ->
  -                throw(noinfo);
  -            Model ->
  -                case linux_cpuinfo_platform() of
  +                %% Try 'model name'
  +                case linux_cpuinfo_model_name() of
                       "-" ->
  -                        Model;
  -                    Platform ->
  -                        Model ++ " (" ++ Platform ++ ")"
  -                end
  +                        throw(noinfo);
  +                    MN ->
  +                        MN
  +                end;
  +            M ->
  +                M
  +        end,
  +    CPU =
  +        case linux_cpuinfo_platform() of
  +            "-" ->
  +                Model;
  +            Platform ->
  +                Model ++ " (" ++ Platform ++ ")"
           end,
       case linux_cpuinfo_total_bogomips() of
           "-" ->
  -            {ok, CPU};
  +            case linux_cpuinfo_BogoMIPS() of
  +                "-" ->
  +                    {ok, CPU};
  +                BMips ->
  +                    {ok, {CPU, BMips}}
  +            end;
           BMips ->
               {ok, {CPU, BMips}}
       end;
  
positive.code: 
  
  linux_info_lookup(Key, File) ->
      try [string:trim(S) || S <- string:tokens(os:cmd("grep " ++ "\"" ++ Key ++ "\"" ++ " " ++ File), [$:,$\n])] of
          Info ->
              linux_info_lookup_collect(Key, Info, [])
  
negative.code: 
  linux_cpuinfo_model_name() ->
      case linux_cpuinfo_lookup("model name") of
          [M|_] ->
              M;
          _ ->
              "-"
      end.
  