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 8d59e963..455b3248 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -105,7 +105,7 @@ msgCreate(tag,posWTag,key,argL,optPre,:optAttr) == if cons? key then tag := 'old msg := [tag,posWTag,key,argL,optPre,NIL] if first optAttr then - setMsgForcedAttrList(msg,car optAttr) + setMsgForcedAttrList(msg,first optAttr) putDatabaseStuff msg initImPr msg initToWhere msg |