diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index a875aeb3..ee5366dd 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -282,6 +282,8 @@
       s
       (fold f (f (car xs) s) (cdr xs))))
 
+;;; multiple value
+
 (define (values . args)
   (if (and (pair? args)
 	   (null? (cdr args)))