There seem to be a problem with `ListPlot` auto ranging in Mathematica 9. Here's the code:

    n = 10;
    dn = 10;
    data = Table[
       If[
        Divisible[i - n, dn],
        i,
        1
        ],
       {i, 1,  100}
       ];
    ListPlot[data, PlotRange -> Automatic]

In version 8 it works as expected (y range from 0 to 100), but in version 9 it only shows ys from 0 to 2. Is there something wrong with my code? A bug in MMA?