fixed empty page bug

local/micronews/paged-blog.scm

@@ -19,10 +19,12 @@ See (haunt builder blog)'s blog for more details."
 		  (else (shorter-than (cdr lst) (1- n)))))
 
   (define (group-by lst n)
-	(if (shorter-than lst n)
-		(list lst)
-		(receive (head rest) (split-at lst n)
-		  (cons head (group-by rest n)))))
+	(cond ((null? lst) '())
+		  ((shorter-than lst n)
+		   (list lst))
+		  (else
+		   (receive (head rest) (split-at lst n)
+			 (cons head (group-by rest n))))))
   
   (lambda (site posts)
 	(let* ((sorted (posts/reverse-chronological posts))