X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=9b059d44a43dd413e5eab2dd630afb2ca2313590;hb=095a47764e687fa76cf0e2803633d30c65c00f40;hp=fd4cbfcf86a03ad0053586794c527c1c683ce35d;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index fd4cbfc..9b059d4 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -673,7 +673,7 @@ core and return a descriptor to it."
 	 (ecase sb!c:*backend-byte-order*
 	   (:little-endian
 	    (write-wordindexed address index low-bits)
-	    (write-wordindexed address index high-bits))
+	    (write-wordindexed address (1+ index) high-bits))
 	   (:big-endian
 	    (write-wordindexed address index high-bits)
 	    (write-wordindexed address (1+ index) low-bits)))))