Amplie suas … proplists: get_value / 2

Basta usar em lists:keyfind(Key, 1, Proplist)vez de proplist:get_value(Key, Proplist). É muito mais rápido.