diff --git a/collects/algol60/cfg-parser.ss b/collects/algol60/cfg-parser.ss
index ab67448..04a2297 100644
--- a/collects/algol60/cfg-parser.ss
+++ b/collects/algol60/cfg-parser.ss
@@ -686,7 +686,7 @@
 				   #f
 				   "bad grammar clause"
 				   stx
-				   (car #f))]
+				   (car clauses))]
 				 [_else
 				  (loop (cdr clauses)
 					cfg-start