From faaf19e1912ba48e9fbd195d2b90c4e205c87538 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 19 Apr 2011 18:14:50 +0000
Subject: cleanup

---
 src/interp/msg.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/msg.boot')

diff --git a/src/interp/msg.boot b/src/interp/msg.boot
index 95407c1b..1cf335fd 100644
--- a/src/interp/msg.boot
+++ b/src/interp/msg.boot
@@ -450,7 +450,7 @@ isKeyQualityP (key,qual)  ==
 --% these functions handle the attributes
  
 initImPr msg  ==
-    $erMsgToss or MEMQ (getMsgTag msg,$imPrTagGuys) =>
+    $erMsgToss or symbolMember? (getMsgTag msg,$imPrTagGuys) =>
         setMsgUnforcedAttr (msg,'$imPrGuys,'imPr)
  
 initToWhere msg  ==
-- 
cgit v1.2.3