diff --git a/Presentation/Yeamer.hs b/Presentation/Yeamer.hs
--- a/Presentation/Yeamer.hs
+++ b/Presentation/Yeamer.hs
@@ -899,14 +899,6 @@
   | otherwise  = error "Default selection for dropdown not included in options list."
  where leafNm = " select"
 
--- activatableCell_ :: ∀ m .
---              (Bool -> IPresentation m ()) -- ^ Rendering of the cell, depending
---                                           --   on whether it has been selected
---                                           --   (i.e. clicked on)
---           -> IPresentation m Bool
--- activatableCell_ c = TweakableInput (Just False)
---        $ \path -> 
-
 infixr 6 $<>
 
 -- | Include a mathematical expression inline in the document.
@@ -1074,8 +1066,8 @@
                tmpFile <- emptyTempFile pStatDir fileExt
                supplier tmpFile
                longHash <- base64md5 <$> BSL.readFile tmpFile
-               let file = pStatDir</>longHash<.>fileExt
-               renameFile tmpFile file
+               let file = longHash<.>fileExt
+               renameFile tmpFile (pStatDir</>file)
                prepareServing file 10 (base64md5 . BSL.fromStrict $ BC8.pack file)
                
    let servableFile = "/pseudostatic"</>imgCode<.>fileExt
diff --git a/test/tasty/test.hs b/test/tasty/test.hs
--- a/test/tasty/test.hs
+++ b/test/tasty/test.hs
@@ -126,8 +126,9 @@
            return . GridDivisions $ if emptyDir then [] else [[]]
          arbGrid [v] = return $ GridRegion v
          arbGrid values = GridDivisions <$> do
-           [width,height] <- replicateM 2
-                    $ (+1) . (`mod`maxSize) . QC.getNonNegative <$> arbitrary
+           let arbSize = (+1) . (`mod`maxSize) . QC.getNonNegative <$> arbitrary
+           width <- arbSize
+           height <- arbSize
            let portionSize = fromIntegral n / fromIntegral (width*height)
                portions = splitPortns portionSize 0 0 values
                rows = splitEach width portions
diff --git a/yeamer.cabal b/yeamer.cabal
--- a/yeamer.cabal
+++ b/yeamer.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                yeamer
-version:             0.1.3.0
+version:             0.1.3.1
 synopsis:            Yesod-based server for interactive presentation slides
 -- description:         
 homepage:            https://github.com/leftaroundabout/yeamer
@@ -38,7 +38,7 @@
                        , numbered-semigroups >=0.1 && <0.2
                        , transformers
                        , exceptions >=0.10 && <0.13
-                       , TeX-my-math >=0.201.0.0 && < 0.203
+                       , TeX-my-math >=0.201.0.0 && <0.204
                        , dumb-cas
                        , HaTeX
                        , texmath >=0.9 && <0.13
@@ -78,7 +78,7 @@
                        , semigroups
                        , numbered-semigroups
                        , time
-                       , diagrams-lib, diagrams-cairo
+                       , diagrams-lib, diagrams-gi-cairo
                        , flat
   hs-source-dirs:      test
   ghc-options:         -rtsopts "-with-rtsopts=-M2G"
@@ -94,7 +94,7 @@
                        , TeX-my-math
                        , semigroups
                        , numbered-semigroups
-                       , diagrams-lib, diagrams-cairo
+                       , diagrams-lib, diagrams-gi-cairo
   hs-source-dirs:      demo
   ghc-options:         -rtsopts "-with-rtsopts=-M2G"
   default-language:    Haskell2010