diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 189ace6e..ace47525 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -524,7 +524,7 @@
      ((eq? p 'integer->char) "Cyc_integer2char")
      ((eq? p 'string->number)"Cyc_string2number2_")
      ((eq? p 'list->string)  "Cyc_list2string")
-     ((eq? p 'make-vector)   "Cyc_make_vector")
+     ((eq? p 'make-vector)   "Cyc_make_vector2")
      ((eq? p 'list->vector)  "Cyc_list2vector")
      ((eq? p 'vector-length) "Cyc_vector_length")
      ((eq? p 'vector-ref)    "Cyc_vector_ref")
@@ -703,6 +703,7 @@
     (and (prim? exp)
          (member exp '(error Cyc-write Cyc-display 
                        string->number string-append 
+                       make-vector
                        + - * /))))
 
 ;; Does primitive allocate an object?