1 files changed, 8 insertions, 4 deletions
diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index b2695acbb..e1054447e 100644
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -213,8 +213,10 @@ instance Binary Symbol where
   put (SymKP d vs)       = putWord8 4 >> put (d,vs)
   put SymBIND            = putWord8 5
   put SymSOFT_BIND       = putWord8 6
-  put SymCAPIT           = putWord8 7
-  put SymNE              = putWord8 8
+  put SymSOFT_SPACE      = putWord8 7
+  put SymCAPIT           = putWord8 8
+  put SymALL_CAPIT       = putWord8 9
+  put SymNE              = putWord8 10
   get = do tag <- getWord8
            case tag of
              0 -> liftM2 SymCat get get
@@ -224,8 +226,10 @@ instance Binary Symbol where
              4 -> liftM2 (\d vs -> SymKP d vs) get get
              5 -> return SymBIND
              6 -> return SymSOFT_BIND
-             7 -> return SymCAPIT
-             8 -> return SymNE
+             7 -> return SymSOFT_SPACE
+             8 -> return SymCAPIT
+             9 -> return SymALL_CAPIT
+             10-> return SymNE
              _ -> decodingError
 
 instance Binary PArg where