alist->env is broken

[sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])]

You guys probably know this one already ...

> (alist->env '(("BLA" . "bla")))

Error: check-arg
       #{Procedure 40 vector?}
       ("BLA=bla")
       #{Procedure 8565 %install-env/errno}

>From syscalls.scm:

;;; ALIST->ENV

(define-foreign %install-env/errno
  (install_env (vector-desc env-vec))
  (to-scheme integer errno_or_false))

(define-simple-errno-syscall (%install-env env-vec) %install-env/errno)

(define (alist->env alist)
  (%install-env (alist->env-list alist)))

Shouldn't there be an "apply vector" or something around the argument
to %install-env?

Cheers =8-} Mike