diff --git a/C/qlyr.c b/C/qlyr.c
index 84679cf9f..35cfed234 100644
--- a/C/qlyr.c
+++ b/C/qlyr.c
@@ -756,6 +756,8 @@ ReadHash(IOSTREAM *stream)
     if (omod) {
       mod = MkAtomTerm(AtomAdjust(omod));
       if (mod == TermProlog) mod = 0;
+    } else {
+      mod = TermProlog;
     }
 
     if (mod != IDB_MODULE) {