diff --git a/src/utils.lisp b/src/utils.lisp
index af8145a..7b6edb9 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -42,7 +42,7 @@
   "Return `x' if it is a list, return '(x) otherwise."
   (if (listp x) x (list x)))
 
-(defun group (source n)
+(defun group (source &optional (n 2))
   "Regroup the list `source' elements by n."
   (when (zerop n)
     (error "zero length"))