diff --git a/src/cmd/sam/regexp.c b/src/cmd/sam/regexp.c
index 8beaa03..3477bae 100644
--- a/src/cmd/sam/regexp.c
+++ b/src/cmd/sam/regexp.c
@@ -772,7 +772,7 @@
 				break;
 			case OR:
 				/* evaluate right choice later */
-				if(addinst(tl, inst->right, &tlp->se))
+				if(addinst(tlp, inst->right, &tlp->se))
 				if(++ntl >= NLIST)
 					goto Overflow;
 				/* efficiency: advance and re-evaluate */