Rest-dot spacing

[Dan Eble]

Is it expected that these two ways of changing the appearance of a rest yield 
different spacing between the rest and the dot?

\version "2.19.15"

classicalQuarter = #(lambda (grob)
  (if (= (ly:grob-property grob 'duration-log 999) 2)
      (ly:grob-set-property! grob 'style 'classical))
  (ly:rest::print grob))

<<
  \new Staff {
    \override Rest #'style = #'classical r4.
  }
>>

<<
  \new Staff {
    \override Rest #'stencil = \classicalQuarter r4.
  }
>>