diff --git a/gloss-examples.cabal b/gloss-examples.cabal
--- a/gloss-examples.cabal
+++ b/gloss-examples.cabal
@@ -1,5 +1,5 @@
 Name:                gloss-examples
-Version:             1.7.4.4
+Version:             1.7.4.5
 License:             MIT
 License-file:        LICENSE
 Author:              Ben Lippmeier
diff --git a/raster/Fluid/src-repa/Main.hs b/raster/Fluid/src-repa/Main.hs
--- a/raster/Fluid/src-repa/Main.hs
+++ b/raster/Fluid/src-repa/Main.hs
@@ -60,11 +60,7 @@
 runBatchMode :: Config -> Model -> IO ()
 runBatchMode config model
         | stepsPassed model     >= configMaxSteps config
-        = do    -- outputBMP $ densityField model
-                -- outputPPM (stepsPassed model) "density" 1 (densityField model)
-                -- outputPPM (stepsPassed model) "velctyU" 10 (R.computeS $ R.map fst $ velocityField model)
-                -- outputPPM (stepsPassed model) "velctyV" 10 (R.computeS $ R.map snd $ velocityField model)
-                return ()
+        =       return ()
 
         | otherwise     
         = do    model'  <- stepFluid config model
@@ -76,9 +72,7 @@
 stepFluid config m@(Model df ds vf vs cl step cb)
    | step                  >= configMaxSteps config
    , configMaxSteps config >  0  
-   = case configBatchMode config of
-                True  -> return m
-                False -> error "Finished simulation"
+   = return m
 
    | otherwise 
    = do performGC
diff --git a/raster/Fluid/src-repa/Solve/Density.hs b/raster/Fluid/src-repa/Solve/Density.hs
--- a/raster/Fluid/src-repa/Solve/Density.hs
+++ b/raster/Fluid/src-repa/Solve/Density.hs
@@ -17,7 +17,7 @@
         -> VelocityField 
         -> IO DensityField
 
-densitySteps config step df ds vf 
+densitySteps config _step df ds vf 
  = {-# SCC "Solve.densitySteps" #-}
    do   df1     <- addSources   (configDelta config) (configDensity   config) 
                                 ds df
diff --git a/raster/Fluid/src-repa/Stage/Advection.hs b/raster/Fluid/src-repa/Stage/Advection.hs
--- a/raster/Fluid/src-repa/Stage/Advection.hs
+++ b/raster/Fluid/src-repa/Stage/Advection.hs
@@ -7,7 +7,7 @@
 import Data.Array.Repa          as R
 import Data.Array.Repa.Unsafe   as R
 import Data.Vector.Unboxed      (Unbox)
-import Text.Printf
+
 
 -- | Apply a velocity field to another field.
 --   Both fields must have the same extent.