diff --git a/c2hs/base/general/Binary.hs b/c2hs/base/general/Binary.hs
--- a/c2hs/base/general/Binary.hs
+++ b/c2hs/base/general/Binary.hs
@@ -250,6 +250,7 @@
    return ()
 expandBin (BinIO _ _ _) _ = return ()
         -- no need to expand a file, we'll assume they expand by themselves.
+{-# INLINE expandBin #-}
 
 -- -----------------------------------------------------------------------------
 -- Low-level reading/writing of bytes
diff --git a/gtk2hs-buildtools.cabal b/gtk2hs-buildtools.cabal
--- a/gtk2hs-buildtools.cabal
+++ b/gtk2hs-buildtools.cabal
@@ -1,5 +1,5 @@
 Name:   gtk2hs-buildtools
-Version:        0.13.8.1
+Version:        0.13.8.2
 License:        GPL-2
 License-file:   COPYING
 Copyright:      (c) 2001-2010 The Gtk2Hs Team