diff --git a/pl/init.yap b/pl/init.yap
index 08117c934..681e1a52a 100644
--- a/pl/init.yap
+++ b/pl/init.yap
@@ -82,6 +82,7 @@ otherwise.
 	 'eam.yap',
 	 'chtypes.yap',
 	 'yapor.yap',
+         'qly.yap',
          'udi.yap'].
 
 :- dynamic prolog:'$user_defined_flag'/4.
diff --git a/pl/qly.yap b/pl/qly.yap
new file mode 100644
index 000000000..a28265f9a
--- /dev/null
+++ b/pl/qly.yap
@@ -0,0 +1,24 @@
+
+/*************************************************************************
+*									 *
+*	 YAP Prolog 							 *
+*									 *
+*	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
+*									 *
+* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-2011	 *
+*									 *
+**************************************************************************
+*									 *
+* File:		qly.yap							 *
+* Last rev:								 *
+* mods:									 *
+* comments:	fast save/restore					 *
+*									 *
+*************************************************************************/
+
+save_module(Mod) :-
+	atom_concat(Mod,'.qly',F),
+	open(F,write,S),
+	'$save_module_preds'(S, Mod),
+	close(S).
+