diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 998b53f47..35da7eb44 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-02  Mikael Djurfeldt  <mdj@linnaeus>
+
+	* unif.c (scm_ra2contig): Fixed memory overwrite bug.
+
 2001-11-02  Marius Vollmer  <mvo@zagadka.ping.de>
 
 	Support for native Win32.  Thanks to Stefan Jahn!
diff --git a/libguile/unif.c b/libguile/unif.c
index 2ace9239e..392e376b2 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1472,7 +1472,7 @@ scm_ra2contig (SCM ra, int copy)
       SCM_ARRAY_DIMS (ret)[k].inc = inc;
       inc *= SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1;
     }
-  SCM_ARRAY_V (ret) = scm_make_uve ((inc - 1), scm_array_prototype (ra));
+  SCM_ARRAY_V (ret) = scm_make_uve (inc, scm_array_prototype (ra));
   if (copy)
     scm_array_copy_x (ra, ret);
   return ret;