@@ -172,7 +172,7 @@ inTemplate opts tit auths date toc body' newvars =
172172 , ("date", date')
173173 , ("idprefix", writerIdentifierPrefix opts)
174174 , ("slidy-url", "http://www.w3.org/Talks/Tools/Slidy2")
175− , ("s5-url", "ui/default") ] ++
175+ , ("s5-url", "s5/default") ] ++
176176 [ ("html5","true") | writerHtml5 opts ] ++
177177 (case toc of
178178 Just t -> [ ("toc", showHtmlFragment t)]