diff --git a/prospect/treap.rkt b/prospect/treap.rkt
index b9fefb1..70efa7d 100644
--- a/prospect/treap.rkt
+++ b/prospect/treap.rkt
@@ -188,7 +188,7 @@
   (let walk ((n (treap-root t)) (acc '()))
     (match n
       [(L) acc]
-      [(N k _ _ left right) (walk left (cons k (walk right acc)))])))
+      [(N _ v _ left right) (walk left (cons v (walk right acc)))])))
 
 (define (treap-fold t f seed)
   (let walk ((n (treap-root t)) (acc seed))