diff --git a/src/GM.hs b/src/GM.hs
index 911ce29..1a2c8c3 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -76,7 +76,7 @@ pure []
 
 hdbgProg :: Program -> Handle -> IO (Node, Stats)
 hdbgProg p hio = do
-    (renderOut . showState) `traverse_` p'
+    (renderOut . showState) `traverse_` states
     -- TODO: i'd like the statistics to be at the top of the file, but `sts`
     -- demands the full evaluation of the entire program, meaning that we
     -- *can't* get partial logs in the case of a crash. this is in opposition to