[cvs-nhc98] Add fixPriority :: TraceId -> Int (uses current byte enc