Problem with plotting (resp. expanding) the Hurwitz Zeta function

I expected the two plots to be identical. Can anyone confirm that the discrepancies show a bug?

b[s_, v_] := If[s == 0, 1, -s*Zeta[1 - s, v]];   Table[Expand[FullSimplify[b[n, x]]], {n, 1, 6}] Plot[%, {x, -1, 3/2}, PlotRange -> {-1, 1}]  Table[BernoulliB[n, x], {n, 1, 6}] Plot[%, {x, -1, 3/2}, PlotRange -> {-1, 1}]