diff --git a/pl/boot.yap b/pl/boot.yap
index 4e62742cf..e9acf7a08 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -1033,7 +1033,7 @@ break :- '$get_value'('$break',BL), NBL is BL+1,
 '$find_in_path'(File,NewFile,_) :- atom(File), !,
 	'$search_in_path'(File,NewFile),!.
 '$find_in_path'(File,_,Call) :-
-	throw(error(domain_error(source_sink,File),G)).
+	throw(error(domain_error(source_sink,File),Call)).
 
 '$search_in_path'(New,New) :-
 	'$exists'(New,'$csult'), !.