diff --git a/pl/boot.yap b/pl/boot.yap
index e05a9ceb9..0ac5d9e8a 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -37,7 +37,7 @@ true :- true.
 		'$system_catch'('$enter_top_level',Module,Error,user:'$Error'(Error)).
 
 '$init_system' :-
-	'$add_alias_to_stream'('$loop_stream','$stream'(0)),
+	'$change_alias_to_stream'('$loop_stream','$stream'(0)),
         % do catch as early as possible
 	(
 	 '$access_yap_flags'(15, 0), \+ '$uncaught_throw' ->