diff --git a/libguile/list.c b/libguile/list.c
index f1552c5e7..07a0d0dc3 100644
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -94,6 +94,7 @@ scm_list_n (SCM elt, ...)
       pos = SCM_CDRLOC (*pos);
       elt = va_arg (foo, SCM);
     }
+  va_end (foo);
   return answer;
 }