diff --git a/lib/srfi/1/constructors.scm b/lib/srfi/1/constructors.scm
index e205cee0..3bd3b6a6 100644
--- a/lib/srfi/1/constructors.scm
+++ b/lib/srfi/1/constructors.scm
@@ -29,7 +29,7 @@
 (define (iota count . o)
   (let ((start (if (pair? o) (car o) count))
         (step (if (and (pair? o) (pair? (cdr o))) (cadr o) 1)))
-    (let lp ((i count) (n (- start step)) (res '()))
+    (let lp ((i count) (n (+ start (* (- count 1) step))) (res '()))
       (if (<= i 0)
           res
           (lp (- i 1) (- n step) (cons n res))))))