Here's a quick fix:

    DiscretePlot[
      Tooltip[PDF[PoissonDistribution[10], x]]
      , {x, 0, 20}] /. Tooltip[a_, b_] :> Map[Tooltip[Point[#], Last@#] &, a[[3, 1]]]