typo

git-svn-id: https://svn.r-project.org/R/trunk@63642 00db46b3-68df-0310-9c12-caf00c1e9a41
Streamlined do_set alog similar lines to pqR.


git-svn-id: https://svn.r-project.org/R/trunk@63644 00db46b3-68df-0310-9c12-caf00c1e9a41