diff --git a/src/Text/Pandoc/Writers/S5.hs b/src/Text/Pandoc/Writers/S5.hs
index e3e9e0024..98c79cb08 100644
--- a/src/Text/Pandoc/Writers/S5.hs
+++ b/src/Text/Pandoc/Writers/S5.hs
@@ -55,19 +55,19 @@ s5Meta = "\n "ui" > "default" > "slides.js.comment"
- jsPacked <- readDataFile $ "data" > "ui" > "default" > "slides.js.packed"
+ jsCom <- readDataFile $ "s5" > "default" > "slides.js.comment"
+ jsPacked <- readDataFile $ "s5" > "default" > "slides.js.packed"
return $ "\n"
s5CSS :: IO String
s5CSS = do
- s5CoreCSS <- readDataFile $ "data" > "ui" > "default" > "s5-core.css"
- s5FramingCSS <- readDataFile $ "data" > "ui" > "default" > "framing.css"
- s5PrettyCSS <- readDataFile $ "data" > "ui" > "default" > "pretty.css"
- s5OperaCSS <- readDataFile $ "data" > "ui" > "default" > "opera.css"
- s5OutlineCSS <- readDataFile $ "data" > "ui" > "default" > "outline.css"
- s5PrintCSS <- readDataFile $ "data" > "ui" > "default" > "print.css"
+ s5CoreCSS <- readDataFile $ "s5" > "default" > "s5-core.css"
+ s5FramingCSS <- readDataFile $ "s5" > "default" > "framing.css"
+ s5PrettyCSS <- readDataFile $ "s5" > "default" > "pretty.css"
+ s5OperaCSS <- readDataFile $ "s5" > "default" > "opera.css"
+ s5OutlineCSS <- readDataFile $ "s5" > "default" > "outline.css"
+ s5PrintCSS <- readDataFile $ "s5" > "default" > "print.css"
return $ "\n\n\n\n"
s5Links :: String