diff --git a/README.md b/README.md
index 6b5a254..6d792fd 100644
--- a/README.md
+++ b/README.md
@@ -46,8 +46,8 @@ The transformation then goes like
 
     (letrec ((between (lambda ()
                         (TRANSLATE CODE ...)
-                        (if (not (zero? vector-ref data dptr)
-                            (between))))))
+                        (if (not (zero? (vector-ref data dptr)))
+                            (between)))))
       (if (not (zero? (vector-ref data dptr)))
           (between)))
     (TRANSLATE REST ...)