diff --git a/src/runtime/haskell/PGF2/FFI.hsc b/src/runtime/haskell/PGF2/FFI.hsc
index 0496bfd10..ae519dcd6 100644
--- a/src/runtime/haskell/PGF2/FFI.hsc
+++ b/src/runtime/haskell/PGF2/FFI.hsc
@@ -275,7 +275,7 @@ mkUnmarshaller = do
           bt  <- fmap unmarshalBindType ((#peek PgfTypeHypo, bind_type) p_hypo)
           cid <- (#peek PgfTypeHypo, cid) p_hypo >>= peekText
           ty  <- (#peek PgfTypeHypo, type) p_hypo >>= deRefStablePtr
-          hs  <- peekExprs (n_hypos-1) (p_hypo `plusPtr` (#size PgfTypeHypo))
+          hs  <- peekHypos (n_hypos-1) (p_hypo `plusPtr` (#size PgfTypeHypo))
           return ((bt,cid,ty):hs)
 
         peekExprs 0       p_expr = return []