diff --git a/d-.scm b/d-.scm
index 2a19ec1..bbf8a65 100644
--- a/d-.scm
+++ b/d-.scm
@@ -17,8 +17,8 @@
 (define-syntax ~>>
   (syntax-rules ()
     [(_ v) v]
-    [(_ v (fn args ...) more ...) (~> (fn args ... v) more ...)]
-    [(_ v fn more ...) (~> (fn v) more ...)]))
+    [(_ v (fn args ...) more ...) (~>> (fn args ... v) more ...)]
+    [(_ v fn more ...) (~>> (fn v) more ...)]))
 
 (define-syntax-rule (if-not pred body ...)
   (if (not pred) body ...))