diff --git a/pl/qly.yap b/pl/qly.yap
index ff5f6277b..41f9bde52 100755
--- a/pl/qly.yap
+++ b/pl/qly.yap
@@ -137,6 +137,7 @@ save_program(File, _Goal) :-
 	X \= language,
 	X \= readline,
 	X \= timezone,
+	X \= tty_control,
 	X \= user_input,
 	X \= user_output,
 	X \= user_error,