Staccato

[Cynthia Karl]

Section 1.285 "staccato" of the 2.19.15 LilyPond Music Glossary says:  Staccato 
is indicated by a dot above or below the note head.  Gardner Read ("Music 
Notation:  A Manual of Modern Practice") agrees with this and has a little 
picture showing a stem-up note with a dot just beneath the note-head and a 
stem-down note with a dot just above the note-head.

Ordinarily, LP follows both Read's and its own guideline on the placement of 
the dot, e.g., the following snippet:

        \version "2.19.15"

        \relative c'' { g8-. a-. b-. c-. d-. e-. f-. g-. a-. b-. c-.}

yields:

SingleVoiceStaccato-crop.pdf
Description: Adobe PDF document

However, the following snippet:

        \version "2.19.15"

        music = \relative c'' {
                << {\voiceOne   g8-. a-. b-. c-. d-. e-. f-. g-. a4-. b-. c-. 
b-.}
                       \new Voice { \voiceTwo g,2~ g2~ g2~ g2}
                >> \oneVoice    
        }

        \score {
                \new ChoirStaff << \new Staff  \music >>
                layout {        }
        }

yields:

PolyphonicStaccato-crop.pdf
Description: Adobe PDF document

Besides being pretty ugly, this violates LP's own guidelines.

Is there a way to get the second snippet to produce regular staccato dots?