diff --git a/compiler/seqtran.lisp b/compiler/seqtran.lisp
index afcdb908a2ae4ab8746e0a0b2b3c1b40bc7f42e1..b2ccaa6ea1d2bd4bcb892e9c2ab95b771a83c00b 100644
--- a/compiler/seqtran.lisp
+++ b/compiler/seqtran.lisp
@@ -159,8 +159,7 @@ member map concatenate position find
 	(args n-seq)
 	(lets `(,n-length (length ,n-seq)))
 	(all-lengths n-length)
-	(forms `(setq start end  end (+ start ,n-length))
-	       forms)
+	(forms `(setq start end  end (+ start ,n-length)))
 	(push `(%primitive byte-blt ,n-seq 0 res start end)
 	      forms)))
     `(lambda (rtype ,@(args))