--- svgcairo/Graphics/Rendering/Cairo/SVG.chs	2008-10-01 00:11:02.000000000 -0430
+++ svgcairo/Graphics/Rendering/Cairo/SVG.chs	2008-10-09 08:37:50.000000000 -0430
@@ -200,6 +200,7 @@
 svgRender svg = do
   cr <- ask
   liftIO $ {# call unsafe render_cairo #} svg cr
+  return ()
 
 -- | Get the width and height of the SVG image.
 --