Fix pjm:to_list_r/1