diff --git a/src/runtime/haskell/PGF2.hsc b/src/runtime/haskell/PGF2.hsc
index 3a776e8e8..b8098637d 100644
--- a/src/runtime/haskell/PGF2.hsc
+++ b/src/runtime/haskell/PGF2.hsc
@@ -414,7 +414,9 @@ inferExpr p e =
       (#const PGF_EXN_NONE) -> do
          c_e <- peek p_e
          e  <- deRefStablePtr c_e
+         freeStablePtr c_e
          ty <- deRefStablePtr c_ty
+         freeStablePtr c_ty
          return (Right (e,ty))
       (#const PGF_EXN_SYSTEM_ERROR) -> do
          errno <- (#peek PgfExn, code) c_exn