diff --git a/C/errors.c b/C/errors.c
index 0808154e4..8bd24d2b0 100644
--- a/C/errors.c
+++ b/C/errors.c
@@ -196,7 +196,7 @@ exit_yap (int value)
 #if defined(YAPOR)
   unmap_memory();
 #endif /* YAPOR || TABLING */
-  if (PrologMode != BootMode)
+  if (! (PrologMode & BootMode) )
     ShutdownLoadForeign();
   exit(value);
 }