[cvs-nhc98] patch applied (hat): Add fixPriority :: TraceId -> Int (uses current byte encoding).