diff --git a/scheme/base.sld b/scheme/base.sld
index c8238344..3abb98b8 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -174,7 +174,7 @@
                (end (if (> (length opts) 1) (cadr opts) len))
                (loop (lambda (i lst)
                        (if (= i end)
-                           lst
+                           (reverse lst)
                            (loop (+ i 1) 
                                  (cons (vector-ref vec i) lst))))))
         (loop start '())))