From fe27540c49070084a24dd5821bc5a97efaa77729 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 30 Aug 2012 07:41:49 +0000
Subject: [PATCH] the loading of PGF files was broken by the Teyjus patch. Now
 this is fixed

---
 src/runtime/haskell/PGF/Binary.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index e96bf0ea0..4f67df42b 100644
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -43,7 +43,8 @@ instance Binary Abstr where
            funs <- get
            cats <- get
            return (Abstr{ aflags=aflags
-                        , funs=funs, cats=cats
+                        , funs=fmap (\(w,x,y,z) -> (w,x,y,z,0)) funs
+                        , cats=fmap (\(x,y) -> (x,y,0)) cats
                         , code=BS.empty                        
                         })