diff --git a/Graphics/Gloss/Juicy.hs b/Graphics/Gloss/Juicy.hs
--- a/Graphics/Gloss/Juicy.hs
+++ b/Graphics/Gloss/Juicy.hs
@@ -47,7 +47,7 @@
 -- | O(N) conversion from 'PixelRGBA8' image to gloss 'Picture', where N is the number of pixels.
 fromImageRGBA8 :: Image PixelRGBA8 -> Picture
 fromImageRGBA8 img@(Image { imageWidth = w, imageHeight = h, imageData = _ }) =
-  bitmapOfForeignPtr w h ptr False
+  bitmapOfForeignPtr w h ptr True
     where swapedImage = horizontalSwap img
           (ptr, _, _) = unsafeToForeignPtr $ imageData swapedImage
 {-# INLINE fromImageRGBA8 #-}
diff --git a/gloss-juicy.cabal b/gloss-juicy.cabal
--- a/gloss-juicy.cabal
+++ b/gloss-juicy.cabal
@@ -1,7 +1,9 @@
 name:                gloss-juicy
-version:             0.1.1
+version:             0.1.2
 synopsis:            Load any image supported by Juicy.Pixels in your gloss application
 description:         Lets you convert any image supported by Juicy.Pixels in a gloss application by converting to gloss' Bitmap representation.
+		     .
+                     Version 0.1.2 just enabled caching (from a frame to the next, and so on) of the images you load, so that they are not recomputed for each frame. Credits go to Jonathan Daugherty for the patch.
 homepage:            http://github.com/alpmestan/gloss-juicy
 license:             BSD3
 license-file:        LICENSE
diff --git a/gloss-juicy.hs b/gloss-juicy.hs
--- a/gloss-juicy.hs
+++ b/gloss-juicy.hs
@@ -1,6 +1,5 @@
 module Main where
 
-import Codec.Picture
 import Graphics.Gloss
 import Graphics.Gloss.Juicy
 import System.Environment
@@ -9,17 +8,9 @@
 main = do
 	args <- getArgs
 	case args of 
-		[filename] -> do
-			tryRead <- readImage filename
-			case tryRead of
-			  Left err -> putStrLn ("error reading png file " ++ filename ++ ": " ++ err)
-			  Right im -> tryConvert im
-
+		[filename] -> loadJuicy filename >>= maybe (putStrLn $ "Couldn't load or decode " ++ filename) displayPic
 		_          -> putStrLn "usage: gloss-juicy <file> -- displays the image in a gloss window"
- 
-  where tryConvert img = case fromDynamicImage img of
-            Just p  -> displayPic p
-            Nothing -> putStrLn "Couldn't convert"
+
 
 displayPic :: Picture -> IO ()
 displayPic p@(Bitmap width height _ _) = display (InWindow "Image Viewer" (width, height) (10, 10))