--- array.lisp.orig	2008-12-28 21:13:21.114676506 +0100
+++ array.lisp	2008-12-28 21:14:05.785943450 +0100
@@ -24,8 +24,9 @@
   (:generator 0
     (pseudo-atomic ()
       (inst or header alloc-tn other-pointer-lowtag)
-      (inst add ndescr rank (+ (* (1+ array-dimensions-offset) n-word-bytes)
-                               lowtag-mask))
+      (inst add ndescr rank (* (1+ array-dimensions-offset) n-word-bytes))
+      ;;(inst add ndescr rank (+ (* (1+ array-dimensions-offset) n-word-bytes)
+      ;;                         lowtag-mask))
       (inst andn ndescr 4)
       (inst add alloc-tn ndescr)
       (inst add ndescr rank (fixnumize (1- array-dimensions-offset)))