diff --git a/examples/example00.hs b/examples/example00.hs
index 5601cb9..f3092b4 100644
--- a/examples/example00.hs
+++ b/examples/example00.hs
@@ -47,9 +47,22 @@ load _ = do
     , G.Property "color2" $ G.PropertyColor $ G.RGBA 0.6 0.6 0.6 1
     ]
   traceM "checkerboard"
+  over <- G.gegl_node_new_child root G.defaultOverOperation
+  traceM "over"
+  text <- G.gegl_node_new_child root $ G.textOperation
+    [ G.Property "string" $ G.PropertyString "Hello world!"
+    , G.Property "color"  $ G.PropertyColor $ G.RGB 0 0 1
+    , G.Property "size"   $ G.PropertyDouble 40
+    ]
+  traceM "text"
+  G.gegl_node_link checkerboard over
+  G.gegl_node_connect_to text "output" over "aux"
+  traceM "connections made"
   myMap <- return $ M.fromList
     [ ("root"        , root)
+    , ("over"        , over)
     , ("checkerboard", checkerboard)
+    , ("text"        , text)
     ]
   traceM "loading complete"
   return $ UserData
@@ -67,11 +80,11 @@ draw = do
   let SDL.Surface rawSurfacePtr _ = drawSurface
   rawSurface <- liftIO $ peek rawSurfacePtr
   pixelFormat <- liftIO $ peek $ Raw.surfaceFormat rawSurface
-  format <- liftIO $ (B.babl_format $ B.PixelFormat B.R'G'B'A B.CFu8)
+  format <- liftIO $ (B.babl_format $ B.PixelFormat B.RGBA B.CFu8)
   SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions drawSurface
   let (w, h) = (fromIntegral rw, fromIntegral rh)
   liftIO $ G.gegl_node_blit
-    (nodeGraph M.! "checkerboard" :: G.GeglNode)
+    (nodeGraph M.! "over" :: G.GeglNode)
     1
     (G.GeglRectangle 0 0 w h)
     format