diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 648b86382..61375034f 100644
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-30  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* readline.c (completion_function):  Use scm_list_n instead of
+	SCM_LISTn.
+
 2001-06-14  Marius Vollmer  <mvo@zagadka.ping.de>
 
 	* readline.c, readline.h: Replace "scm_*_t" with "scm_t_*".
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 7e0eb1460..0d2403384 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -410,7 +410,7 @@ completion_function (char *text, int continuep)
     {
       SCM t = scm_makfrom0str (text);
       SCM c = continuep ? SCM_BOOL_T : SCM_BOOL_F;
-      res = scm_apply (compfunc, SCM_LIST2 (t, c), SCM_EOL);
+      res = scm_apply (compfunc, scm_list_2 (t, c), SCM_EOL);
   
       if (SCM_FALSEP (res))
 	return NULL;
@@ -418,7 +418,7 @@ completion_function (char *text, int continuep)
       if (!SCM_STRINGP (res))
 	scm_misc_error (s_scm_readline,
 			"Completion function returned bogus value: %S",
-			SCM_LIST1 (res));
+			scm_list_1 (res));
       SCM_STRING_COERCE_0TERMINATION_X (res);
       return strdup (SCM_STRING_CHARS (res));
     }