diff options
Diffstat (limited to 'src/interp/msg.boot')
-rw-r--r-- | src/interp/msg.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/msg.boot b/src/interp/msg.boot index 040ba711..07e2e174 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -102,7 +102,7 @@ ncBug (erMsgKey, erArgL,:optAttr) == -- text -- the actual text msgCreate(tag,posWTag,key,argL,optPre,:optAttr) == - if PAIRP key then tag := 'old + if CONSP key then tag := 'old msg := [tag,posWTag,key,argL,optPre,NIL] if CAR optAttr then setMsgForcedAttrList(msg,car optAttr) |