$THETA block comments are added to all THETAs instead of just the current THETA

[billdenney]

With a THETA block like the following, all the comments get assigned to all the THETAs.

$THETA
 (1, 2, 3) ; ABC
 (4, 5, 6) ; DEF

A test is below (note the duplication of "ABC" and "DEF".

> as.initList.character(c(" (1, 2, 3) ; ABC", " (4, 5, 6) ; DEF"))
[1] ""        ";  ABC"  "(1,2,3)" ";   ABC" ";   DEF" "(4,5,6)" ";   ABC" ";   DEF"