diff --git a/pl/boot.yap b/pl/boot.yap
index 2c94b8a68..1cb191df8 100755
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -229,7 +229,6 @@ true :- true.
 % then recover program.
 '$startup_reconsult' :-
 	get_value('$consult_on_boot',X), X \= [], !,
-	writeln(consult:X),
 	set_value('$consult_on_boot',[]),
 	'$do_startup_reconsult'(X).
 '$startup_reconsult'.
diff --git a/pl/consult.yap b/pl/consult.yap
index 52e740a0c..514e52ad0 100755
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -454,7 +454,7 @@ initialization(G,OPT) :-
 	( '$access_yap_flags'(15, 0) -> true ; halt).
 
 '$skip_unix_comments'(Stream) :-
-	peek(Stream, 0'#), !, % 35 is ASCII for '#
+	peek_code(Stream, 0'#), !, % 35 is ASCII for '#
 	skip(Stream, 10),
 	'$skip_unix_comments'(Stream).
 '$skip_unix_comments'(_).