@@ -29,9 +29,9 @@
 	(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))))