From 98cc029b6668ca5c60b6ed62faf8807606412e67 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 13 Oct 2011 16:46:29 +0100
Subject: [PATCH] fix warning.

---
 C/qlyr.c | 2 ++
 1 file changed, 2 insertions(+)

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) {