diff --git a/Language/C/Inline/ObjC.hs b/Language/C/Inline/ObjC.hs
--- a/Language/C/Inline/ObjC.hs
+++ b/Language/C/Inline/ObjC.hs
@@ -449,7 +449,7 @@
         -- FFI setup for the C wrapper
     ; loc <- location
     ; let modName = dropExtension . takeFileName . loc_filename $ loc
-    ; cwrapperName <- show <$> newName (modName ++ "_cwrapper") >>= newName   -- Don't ask...
+    ; cwrapperName <- show <$> newName ("cwrapper_" ++ modName) >>= newName   -- Don't ask...
     ; stashHS
         [ forImpD CCall Safe (show cwrapperName) cwrapperName hsWrapperTy
         ]
diff --git a/language-c-inline.cabal b/language-c-inline.cabal
--- a/language-c-inline.cabal
+++ b/language-c-inline.cabal
@@ -1,5 +1,5 @@
 Name:                   language-c-inline
-Version:                0.7.9.0
+Version:                0.7.9.1
 Cabal-version:          >= 1.9.2
 Tested-with:            GHC == 7.6.3, GHC == 7.8.3
 Build-type:             Simple
@@ -80,7 +80,7 @@
                         base              >= 4.0 && < 5,
                         containers        >= 0.4,
                         filepath          >= 1.2,
-                        language-c-quote  >= 0.8,
+                        language-c-quote  >= 0.8 && < 0.9,
                         mainland-pretty   >= 0.2.5,
                         template-haskell