diff --git a/src/runtime/haskell/PGF2.hsc b/src/runtime/haskell/PGF2.hsc
index 34d75990e..5e5f21d48 100644
--- a/src/runtime/haskell/PGF2.hsc
+++ b/src/runtime/haskell/PGF2.hsc
@@ -923,7 +923,7 @@ bracketedLinearize c e = unsafePerformIO $ do
 
     symbol_ne ref _ = do
       (ne,stack,bs) <- readIORef ref
-      writeIORef ref (True,[],[])
+      writeIORef ref (True,stack,bs)
 
     flush _ _ = return ()