@@ -25,9 +25,9 @@
 
   (define (wrap pat) 
 	(if (eq? (cdr pat) '()) ;then
 		pat
-		; else
+	; else
 		(list (cons 'string-append pat))))
 
   (let ([branches (map wrap patterns)])
 	(@one-of nest-case branches)))