diff --git a/sectorlisp.S b/sectorlisp.S
index 8a264e9..237588d 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -180,7 +180,7 @@ GetList:call	GetToken
 	ret
 
 .resolv:push	%si
-	call	Eval				# do (fn si) → ((λ ...) si)
+	call	Assoc				# do (fn si) → ((λ ...) si)
 	pop	%si
 Apply:	test	%ax,%ax				# Apply(fn:ax,x:si:a:dx):ax
 	jns	.switch				# jump if atom