Bug in str_find. while slen ~= 0 it should be.