Protect fix ported from Radford Neals pqR.
Protect fix ported from Radford Neals pqR. Use R_TrueValue to fix protection errors discovered by Radford.