diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index b20111198..4f4545783 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,9 @@
+2000-04-18  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* unif.c (l2ra):  Don't eliminate the call to scm_array_set_x
+	itself, as was done in the previous 'patch'.  (Thanks to Radey
+	Shouman)
+
 2000-04-18  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* options.c (scm_options), read.c (recsexpr):  Remove redundant
diff --git a/libguile/unif.c b/libguile/unif.c
index 8e2761227..343c25a17 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -2210,6 +2210,7 @@ l2ra (SCM lst, SCM ra, scm_sizet base, scm_sizet k)
 	{
 	  if (SCM_IMP (lst) || SCM_NCONSP (lst))
 	    return 0;
+	  scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base));
 	  base += inc;
 	  lst = SCM_CDR (lst);
 	}