diff --git a/cgen.scm b/cgen.scm
index 94b70ea1..77ee43b6 100644
--- a/cgen.scm
+++ b/cgen.scm
@@ -435,7 +435,7 @@
      ((eq? p 'list->string)  "Cyc_list2string")
      ((eq? p 'string->list)  "string2list")
      ((eq? p 'make-vector)   "make_vector")
-     ((eq? p 'list->vector)  "list_vector")
+     ((eq? p 'list->vector)  "list2vector")
      ((eq? p 'string-append) "Cyc_string_append")
      ((eq? p 'string-cmp)    "Cyc_string_cmp")
      ((eq? p 'string->symbol) "Cyc_string2symbol")
diff --git a/scheme/base.sld b/scheme/base.sld
index f0c60fbf..6d962c44 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -39,6 +39,7 @@
     symbol=?
     Cyc-obj=?
     make-string
+    vector
     error
     raise
     raise-continuable
@@ -118,6 +119,7 @@
               (car lst)
               (foldl (lambda (a b) (append-2 b a)) (car lst) (cdr lst)))))
     (define (list . objs)  objs)
+    (define (vector . objs) (list->vector objs))
     (define (make-list k . fill)
       (letrec ((x (if (null? fill) 
                    #f