diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index d63de51db..5a26eda9d 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* values.c (scm_values): Build lists of length 1 by using
+	scm_list_1 instead of using scm_cons.
+
 2003-07-10  Kevin Ryde  <user42@zip.com.au>
 
 	* deprecation.c (scm_c_issue_deprecation_warning_fmt): Add va_end.
diff --git a/libguile/values.c b/libguile/values.c
index 2d4484779..d67b45926 100644
--- a/libguile/values.c
+++ b/libguile/values.c
@@ -62,7 +62,7 @@ SCM_DEFINE (scm_values, "values", 0, 0, 1,
   else
     {
       result = scm_make_struct (scm_values_vtable, SCM_INUM0,
-				scm_cons (args, SCM_EOL));
+				scm_list_1 (args));
     }
 
   return result;