From 8f019b22dedae53e3fe869be67cd4fa8685aceca Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 22 May 2009 14:01:05 -0500
Subject: [PATCH] make sure to work even without system mode

---
 pl/consult.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/consult.yap b/pl/consult.yap
index 1ac4779c6..506a702f1 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -206,7 +206,7 @@ use_module(M,F,Is) :-
 '$do_lf'(ContextModule, Stream, InfLevel, _, Imports, SkipUnixComments, CompMode, Reconsult, UseModule) :-
 	nb_getval('$if_level',OldIncludeLevel),
 	nb_setval('$if_level',0),
-	nb_getval('$system_mode', OldMode),
+	( nb_getval('$system_mode', OldMode) -> true ; OldMode = off),
         ( OldMode == off -> '$enter_system_mode' ; true ),
 	'$record_loaded'(Stream, ContextModule),
 	'$current_module'(OldModule,ContextModule),