--- gawk-3.1.1/field.c.orig	Tue Apr 16 13:57:25 2002
+++ gawk-3.1.1/field.c	Thu May  9 15:20:42 2002
@@ -834,10 +834,10 @@ do_split(NODE *tree)
 	free_temp(tmp);
 
 	arr = tree->rnode->lnode;
-	if (tree->rnode->rnode != NULL)
-		sep = tree->rnode->rnode->lnode;	/* 3rd arg */
-	else
-		sep = NULL;
+
+	/* awkgram.y effectively transforms split(s,a) to split(s,a,FS). */
+	/* assert(tree->rnode->rnode != NULL); */
+	sep = tree->rnode->rnode->lnode;	/* 3rd arg */
 
 	(void) force_string(src);