diff --git a/code/array.lisp b/code/array.lisp
index e0c906189861e7a68c89aad27273fe7aa98e1bb3..65a7d4b2af7c178dd9a0b47f1e4ac367c3901669 100644
--- a/code/array.lisp
+++ b/code/array.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.41 2007/01/11 22:11:08 fgilham Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.42 2007/01/13 01:16:30 fgilham Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -670,7 +670,7 @@
   (let ((fill-pointer (fill-pointer array)))
     (declare (fixnum fill-pointer))
     (when (= fill-pointer (%array-available-elements array))
-      (setf array (adjust-array array (+ fill-pointer extension))))
+      (adjust-array array (+ fill-pointer extension)))
     (setf (aref array fill-pointer) new-el)
     (setf (%array-fill-pointer array) (1+ fill-pointer))
     fill-pointer))