Index: lib/bot.scm
==================================================================
--- lib/bot.scm
+++ lib/bot.scm
@@ -28,11 +28,11 @@
   (define (nest-case pair)
 	(cons (list (car pair))
 		  (cdr pair)))
 
   (define (wrap pat) 
-	(if (eq? (cdr pat) '()) ;then
+	(if (null? (cdr pat)) ;then
 		pat
 	; else
 		(list (cons 'string-append pat))))
 
   (let ([branches (map wrap patterns)])