diff --git a/collects/mzlib/awk.ss b/collects/mzlib/awk.ss
index 37f4603..5c70ced 100644
--- a/collects/mzlib/awk.ss
+++ b/collects/mzlib/awk.ss
@@ -135,7 +135,7 @@
 				rest)])))))])
 	   (let ([testing-clauses (get-testing-clauses)])
 	     `(let (,@user-state-var-decls ,@initvars)
-		(let ,loop ([,counter 0]) 
+		(let ,loop ([,counter 1]) 
 		     (call-with-values
 		      (lambda () ,get-next-record)
 		      (lambda ,user-fields