diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index 3c9dcc265..e293da99c 100644
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -148,8 +148,8 @@ instance Binary Symbol where
   put (SymVar n l)       = putWord8 2 >> put (n,l)
   put (SymKS ts)         = putWord8 3 >> put ts
   put (SymKP d vs)       = putWord8 4 >> put (d,vs)
-  put SymNE              = putWord8 5
-  put SymBIND            = putWord8 6
+  put SymBIND            = putWord8 5
+  put SymNE              = putWord8 6
   get = do tag <- getWord8
            case tag of
              0 -> liftM2 SymCat get get
@@ -157,8 +157,8 @@ instance Binary Symbol where
              2 -> liftM2 SymVar get get
              3 -> liftM  SymKS  get
              4 -> liftM2 (\d vs -> SymKP d vs) get get
-             5 -> return SymNE
-             6 -> return SymBIND
+             5 -> return SymBIND
+             6 -> return SymNE
              _ -> decodingError
 
 instance Binary PArg where