diff --git a/pl/qly.yap b/pl/qly.yap
index 2d1c500ae..786ca1119 100644
--- a/pl/qly.yap
+++ b/pl/qly.yap
@@ -38,6 +38,7 @@ qsave_program(File) :-
 '$init_state'.
 
 '$do_init_state' :-
+	compile_expressions,
 	 '$init_preds',
 	 fail.
 '$do_init_state' :-