diff --git a/assembly/ppc/array.lisp b/assembly/ppc/array.lisp
index 65b5cd7dbfc52250974f8e2bb3a60413595fd42b..7516acba2ddbae4a3b6a2dde2284a836b395c1cf 100644
--- a/assembly/ppc/array.lisp
+++ b/assembly/ppc/array.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/ppc/array.lisp,v 1.4 2004/09/08 02:10:54 rtoy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/ppc/array.lisp,v 1.5 2005/04/16 14:42:19 rtoy Exp $
 ;;;
 ;;;    This file contains the support routines for arrays and vectors.
 ;;;
@@ -37,6 +37,9 @@
     (inst srwi ndescr type vm:word-shift)
     (storew ndescr vector 0 vm:other-pointer-type)
     (storew length vector vm:vector-length-slot vm:other-pointer-type))
+  ;; Like the sparc port, we need to touch the last word to make sure
+  ;; this page is paged in.  Do we need to touch all pages?
+  (storew zero-tn alloc-tn -1)
   (move result vector))