@@ -383,7 +383,7 @@ bulletListStyle l =
383383 , ("text:style-name" , "Bullet_20_Symbols")
384384 , ("style:num-suffix", "." )
385385 , ("text:bullet-char", [bulletList !! i] )
386− ] (listLevelStyle i)
386+ ] (listLevelStyle (1 + i))
387387 bulletList = map chr $ cycle [8226,8227,8259]
388388 listElStyle = map doStyles [0..9]
389389 in do pn <- paraListStyle l