bug in zapweak()

[RobinHankin]

Running R CMD check, get this:

> ### ** Examples
> 
>  zapweak(icons)        # removes noone
iteration 1, size(H) = 6
log(L^24 * (L + NB + OA + THC)^-20 * (L + NB + OA + WAIS)^-9 * (L + NB
+ THC + WAIS)^-15 * (L + OA + PB + THC)^-11 * (L + OA + PB + WAIS)^-18
* (L + PB + THC + WAIS)^-16 * NB^32 * (NB + OA + PB + THC)^-18 * (NB +
OA + PB + WAIS)^-8 * (NB + PB + THC + WAIS)^-18 * OA^14 * PB^30 *
THC^24 * WAIS^9)
> ## No test: 
> #Takes too long
>  zapweak(rowing)   # removes everyone...
iteration 1, size(H) = 32
iteration 2, size(H) = 32
Error in loglik_single(p, H, log = log) : sum(powers(H)) == 0 is not TRUE
known R bug (bugzilla ID 17703; wmmin not finite).  Kludge:  maxp_single() will try  a slightly different start point
Error in loglik_single(p, H, log = log) : sum(powers(H)) == 0 is not TRUE
known R bug (bugzilla ID 17703; wmmin not finite).  Kludge:  maxp_single() will try  a slightly different start point
Error in loglik_single(p, H, log = log) : sum(powers(H)) == 0 is not TRUE
known R bug (bugzilla ID 17703; wmmin not finite).  Kludge:  maxp_single() will try  a slightly different start point
Error in loglik_single(p, H, log =
[snip]