anchor.diff:  
   
   linux_info_lookup(Key, File) ->
  -    try [string:trim(S) || S <- string:tokens(os:cmd("grep " ++ "\"" ++ Key ++ "\"" ++ " " ++ File), [$:,$\n])] of
  +    LKey = string:to_lower(Key),
  +    try [string:trim(S) || S <- string:tokens(os:cmd("grep -i " ++ "\"" ++ LKey ++ "\"" ++ " " ++ File), [$:,$\n])] of
           Info ->
  -            linux_info_lookup_collect(Key, Info, [])
  +            linux_info_lookup_collect(LKey, Info, [])
       catch
           _:_:_ ->
               "-"
  
positive.code:                 _:_:_ ->
                      "-"
              end;
          _ ->
              "-"
      end.
  
  
negative.code:                 %% ARM (at least some distros...)
                  case linux_cpuinfo_processor() of
                      "-" ->
  			case linux_cpuinfo_model() of
  			    "-" ->
  				%% Ok, we give up
  				throw(noinfo);
  			    Model ->
  				Model
  			end;
                      Proc ->
                          Proc
                  end;
  