diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 4ce20506a..6dbd2a55c 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-12  Mikael Djurfeldt  <mdj@linnaeus.mit.edu>
+
+	* arrays.scm (make-array): Added quote in front of ().
+
 2001-03-12  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* common-list.scm (count-if): New procedure.
diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm
index 51be69210..7d249795e 100644
--- a/ice-9/arrays.scm
+++ b/ice-9/arrays.scm
@@ -1,6 +1,6 @@
 ;;; installed-scm-file
 
-;;;; Copyright (C) 1999 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -30,7 +30,7 @@
 (define uniform-vector-write uniform-array-write)
 
 (define (make-array fill . args)
-  (dimensions->uniform-array args () fill))
+  (dimensions->uniform-array args '() fill))
 (define (make-uniform-array prot . args)
   (dimensions->uniform-array args prot))
 (define (list->array ndim lst)