diff --git a/17.rkt b/17.rkt
index 4fae5b4..1e38b30 100644
--- a/17.rkt
+++ b/17.rkt
@@ -9,7 +9,7 @@
 (define origin (pt 0 0 0 0))
 
 (define (pt+ . args)
-  (for/fold ([ans (pt 0 0 0 0)]) ([x (in-list args)])
+  (for/fold ([ans origin]) ([x (in-list args)])
     (apply pt (map #{+ (% ans) (% x)} pt-getters))))
 
 (define (in-pts lower upper use-w?)