From c1e67345cfe9ff806e5e127bd0c7e1fe04c8572b Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 31 Oct 2005 00:51:53 +0000
Subject: [PATCH] avoid loop when booting from Prolog

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1430 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/boot.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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' ->