diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 3f81af82a..2a994253a 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-03  Gary Houston  <ghouston@arglist.com>
+
+	* continuations.h, unif.h: in the descriptions of the bit patterns
+	of the heap cells, make bit 0 the least significant.
+
 2001-09-25  Thien-Thi Nguyen  <ttn@glug.org>
 
 	* chars.h (SCM_MAKE_CHAR): Use `scm_t_bits' instead of `intptr_t'.
diff --git a/libguile/continuations.h b/libguile/continuations.h
index 74f2b1aa3..21616173c 100644
--- a/libguile/continuations.h
+++ b/libguile/continuations.h
@@ -51,8 +51,8 @@
 
 
 /* a continuation SCM is a non-immediate pointing to a heap cell with:
-   word 0: bits 0-15: unused.
-           bits 16-31: smob type tag: scm_tc16_continuation.
+   word 0: bits 0-15: smob type tag: scm_tc16_continuation.
+           bits 16-31: unused.
    word 1: malloc block containing an scm_t_contregs structure with a
            tail array of SCM_STACKITEM.  the size of the array is stored
 	   in the num_stack_items field of the structure.
diff --git a/libguile/unif.h b/libguile/unif.h
index 66a33fcf0..24da36e72 100644
--- a/libguile/unif.h
+++ b/libguile/unif.h
@@ -51,12 +51,12 @@
 
 
 /*
-  an array SCM is a non-immediate pointing to a  heap cell with:
+  an array SCM is a non-immediate pointing to a  heap cell where:
 
-   CAR: bits 0-14 hold the dimension (0 -- 32767)
-        bit  15 is the SCM_ARRAY_FLAG_CONTIGUOUS flag
-        bits 16-31 hold the smob type id: scm_tc16_array
-   CDR: pointer to a malloced block containing an scm_array structure
+   CAR: bits 0-15 hold the smob type id: scm_tc16_array
+        bit  16 is the SCM_ARRAY_FLAG_CONTIGUOUS flag
+	bits 17-31 hold the dimension (0 -- 32767)
+   CDR: pointer to a malloced block containing an scm_t_array structure
         followed by an scm_t_array_dim structure for each dimension.
 */