diff --git a/Examples/Example1.hs b/Examples/Example1.hs
--- a/Examples/Example1.hs
+++ b/Examples/Example1.hs
@@ -11,7 +11,7 @@
 import Data.Array.IArray
 import Data.Bits
 import Foreign.C.Types
-import Foreign.Concurrent
+import Control.Concurrent (threadDelay)
 import Foreign.ForeignPtr hiding (newForeignPtr)
 import Foreign.Marshal.Alloc
 import Foreign.Marshal.Array
@@ -51,8 +51,7 @@
 
 saveClip c = enumCamera c $$ (E.isolate 10 =$ save)
 
-main = do
-    dc <- getDC1394 --c'dc1394_new 
+main = withDC1394 $ \dc -> do
     (e:_) <- getCameras dc
     print e
     print ("Trying camera", e)
@@ -65,12 +64,12 @@
     startVideoTransmission cam
     
    --  run_ (saveClip cam)
-    getFrame cam >>= saveImage "testShot2-1.png"
-    getFrame cam >>= saveImage "testShot2-3.png"
+    getFrame cam >>= maybe (return ()) (saveImage "testShot2-1.png")
+    getFrame cam >>= maybe (return ()) (saveImage "testShot2-3.png")
     threadDelay (1000000)
-    flushCamera cam
+    flushBuffer cam
     startVideoTransmission cam
-    getFrame cam >>= saveImage "testShot2-4.png"
+    getFrame cam >>= maybe (return ()) (saveImage "testShot2-4.png")
     
     stopVideoTransmission cam
     stopCapture cam
diff --git a/System/Camera/Firewire/Simple.hs b/System/Camera/Firewire/Simple.hs
--- a/System/Camera/Firewire/Simple.hs
+++ b/System/Camera/Firewire/Simple.hs
@@ -84,10 +84,11 @@
  where
     flushLoop framePtrPtr cam = do
         c'dc1394_capture_dequeue cam  c'DC1394_CAPTURE_POLICY_POLL framePtrPtr
-        framePtr <- peek framePtrPtr 
-        c'dc1394_capture_enqueue cam framePtr
         print "Flush!"
-        when (framePtr /= nullPtr) $ flushLoop framePtrPtr cam
+        framePtr  :: Ptr C'dc1394video_frame_t <- peek framePtrPtr 
+        putStrLn $ show (framePtr,framePtrPtr)
+        
+        when (framePtr /= nullPtr) $ c'dc1394_capture_enqueue cam framePtr >> flushLoop framePtrPtr cam
 
 
 
diff --git a/simple-firewire.cabal b/simple-firewire.cabal
--- a/simple-firewire.cabal
+++ b/simple-firewire.cabal
@@ -1,5 +1,5 @@
 Name:                simple-firewire
-Version:             0.1.3.1
+Version:             0.1.3.2
 Synopsis:            Simplified interface for firewire cameras
 Description:         A simplified interface for firewire cameras based on libdc1394 <http://damien.douxchamps.net/ieee1394/libdc1394/>
                      .