diff --git a/flow/FlowUtils.hs b/flow/FlowUtils.hs
index df4431b..5e5f4f8 100644
--- a/flow/FlowUtils.hs
+++ b/flow/FlowUtils.hs
@@ -229,7 +229,7 @@ withDeclName n m = do st <- get
                       put $ st {nameStack = n : nameStack st}
                       x <- m
                       st' <- get
-                      put $ st' {nameStack = tail $ nameStack st}
+                      put $ st' {nameStack = tail $ nameStack st'}
                       return x
 
 withDeclSpec :: (Monad mLabel, Monad mAlter) =>