Does this look like a bug to anyone? d1 can be fed into Plot function and it shows uninterrupted line suggesting Wolfram treats it as continuous distribution.
Here is another problem (maybe related) -- here it looks like TransformedDistribution can't apply to itself:
p = DiscreteUniformDistribution[{1,6}];
y = TransformedDistribution[a + b, {a \[Distributed] p, b\[Distributed]p}];
w = TransformedDistribution[c + d, {c \[Distributed] y, d \[Distributed]p}];
pdf1 = PDF[y]
DiscretePlot[pdf1[s1], {s1, 0, 20}, ExtentSize -> 0.8]
pdf2 = PDF[w]
DiscretePlot[pdf2[s2], {s2, 0, 20}, ExtentSize -> 0.8]
pdf2
refuses to be evaluated to anything meaningful (to me).