diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index b13acd5..89963ed 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -891,7 +891,10 @@
 
 (define (alist->env-vec alist)
   (list->vector (map (lambda (var.val)
-		       (string-append (car var.val) "=" (cdr var.val)))
+		       (string-append (car var.val) "="
+				      (let ((val (cdr var.val)))
+					(if (string? val) val
+					    (string-join val ":")))))
 		     alist)))
 
 ;;; ENV->ALIST