diff --git a/assembly/ppc/array.lisp b/assembly/ppc/array.lisp
index 7516acba2ddbae4a3b6a2dde2284a836b395c1cf..fdec7a2a9a63e478cb62e2abfa60f50b83e0295b 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.5 2005/04/16 14:42:19 rtoy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/ppc/array.lisp,v 1.6 2005/04/22 02:28:57 rtoy Exp $
 ;;;
 ;;;    This file contains the support routines for arrays and vectors.
 ;;;
@@ -39,7 +39,9 @@
     (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)
+  ;;
+  ;; FIXME: This seems to cause some problems.  Turn it off for now.
+  ;; (storew zero-tn alloc-tn -1)
   (move result vector))