diff --git a/imperative/skeleton.rkt b/imperative/skeleton.rkt
index 25fcabb..3a2958c 100644
--- a/imperative/skeleton.rkt
+++ b/imperative/skeleton.rkt
@@ -274,7 +274,7 @@
           (cond [(non-object-struct? term) (struct->vector term)]
                 [(list? term) (list->vector (cons 'list term))]
                 [(vector? term) (list->vector (cons 'list (vector->list term)))]))
-        (walk-node! entry (cons new-pieces term-stack)))))
+        (walk-node! entry (cons new-pieces popped-stack)))))
 
   (walk-node! sk (list (vector 'list term0-term))))