diff --git a/compiler/locall.lisp b/compiler/locall.lisp
index cb721700c654eee9831e9f242338b7f62ad931ff..427e39330962e0934a9041e6373fff2416f82b3e 100644
--- a/compiler/locall.lisp
+++ b/compiler/locall.lisp
@@ -494,8 +494,8 @@
 		(let ((info (lambda-var-arg-info var)))
 		  (when (eq (arg-info-keyword info) name)
 		    (ignores dummy)
-		    (supplied (cons var val)))
-		    (return))))))
+		    (supplied (cons var val))
+		    (return)))))))
 	
 	(when (and loser (not (optional-dispatch-allowp fun)))
 	  (compiler-warning "Function called with unknown argument keyword ~S."