diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 813349f49..2390d8654 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-09  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
+
+	* ramap.c (scm_ramapc): Typo in error message.
+
 2003-01-08  Mikael Djurfeldt  <djurfeldt@nada.kth.se>
 
 	* goops.c (scm_sys_prep_layout_x): Bugfix: Only create layout for
diff --git a/libguile/ramap.c b/libguile/ramap.c
index 24c1474d9..46743728d 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -323,7 +323,7 @@ scm_ramapc (int (*cproc)(), SCM data, SCM ra0, SCM lra, const char *what)
     {
     default:
     case 0:
-      scm_misc_error (what, "array shape mismatch: ~S", ra0);
+      scm_misc_error (what, "array shape mismatch: ~S", scm_list_1 (ra0));
     case 2:
     case 3:
     case 4:			/* Try unrolling arrays */