diff --git a/pl/qly.yap b/pl/qly.yap
index 679760178..0756e9dd9 100755
--- a/pl/qly.yap
+++ b/pl/qly.yap
@@ -240,7 +240,7 @@ qend_program :-
 	X \= argv,
 	X \= os_argv,
 	X \= language,
-    X \= encoding.
+    X \= encoding,
 	fail.
 
 qsave_file(F0) :-