diff --git a/MusicXML.scm b/MusicXML.scm
index 46f70c3..4a5c611 100644
--- a/MusicXML.scm
+++ b/MusicXML.scm
@@ -148,12 +148,11 @@
(writeln "~A" voice)
(writetype dur)
+ (writedots (if (ly:duration? dur) (ly:duration-dot-count dur) 0))
(if accidental
(writeln "~A" (acctext accidental)))
- (writedots (if (ly:duration? dur) (ly:duration-dot-count dur) 0))
-
- (if (symbol? beam) (writeln "~A" beam))
(writetimemod dur)
+ (if (symbol? beam) (writeln "~A" beam))
(writetuplet tuplet)
(if (and (not chord) (list? lyrics))
(for-each