diff --git a/pl/boot.yap b/pl/boot.yap
index 0ef157d70..9bd74a606 100755
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -1002,7 +1002,7 @@ break :-
 
 bootstrap(F) :-
 	'$open'(F, '$csult', Stream, 0, 0, F),
-	'$current_stream'(File,_,Stream),
+	'$file_name'(Stream,File),
 	'$start_consult'(consult, File, LC),
 	file_directory_name(File, Dir),
 	getcwd(OldD),
diff --git a/pl/consult.yap b/pl/consult.yap
index 43c47ff6c..be7bc7246 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -214,7 +214,7 @@ use_module(M,F,Is) :-
 	nb_getval('$consulting_file',OldF),
 	'$set_consulting_file'(Stream),
 	H0 is heapused, '$cputime'(T0,_),
-	'$current_stream'(File,_,Stream),
+	'$file_name'(Stream,File),
 	'$fetch_stream_alias'(OldStream,'$loop_stream'),
 	'$change_alias_to_stream'('$loop_stream',Stream),
 	nb_getval('$consulting',Old),