Lossage typing c-m-L after Source Compare Merge

[Laura Bagnall <LAURA at MIT-OZ>]

In Release 5.0 [GC'd Beta Test rev 3], FEP 17, dusty plum, on Lisp Machine Elvis Presley (3600):

I had done m-X Source Compare Merge between 2 buffers and then typed c-R.  After poking around
the buffer for a little while, I typed c-m-L and got the following error.

>>Error: SELF is supposed to be an object of flavor ZWEI:ZMACS-EDITOR, however it is
         actually of flavor ZWEI:EDITOR, which does not have ZWEI:ZMACS-EDITOR as a component
While in the function SI:GET-COMPONENT-FLAVOR-INFO  SI:GET-FLAVOR-MAPPING-TABLE  SI:GET-FLAVOR-MAPPING-TABLE-AND-SELF

SI:GET-COMPONENT-FLAVOR-INFO:  (P.C. = 47)
   Arg 0 (FL): #<FLAVOR ZWEI:EDITOR 21416065>
   Arg 1 (COMPONENT-FLAVOR): ZWEI:ZMACS-EDITOR
   Arg 2 (DONT-CREATE): NIL
   Arg 3 (FOR-SELF): T
   Local 4 (PLIST): #<DTP-LOCATIVE 21416110>
   Local 5 (CFI): ((ZWEI:EDITOR #<Map to flavor ZWEI:EDITOR -- 11. IV's, 0. FL's 15631305>) (SI:VANILLA-FLAVOR SI:VANILLA-FLAVOR))
   Local 6 (FLAVOR-INFO): NIL

SI:GET-FLAVOR-MAPPING-TABLE:  (P.C. = 16)
   Arg 0 (FL): #<FLAVOR ZWEI:EDITOR 21416065>
   Arg 1 (METHOD-FLAVOR): ZWEI:ZMACS-EDITOR
   Arg 2 (FOR-SELF): T

SI:GET-FLAVOR-MAPPING-TABLE-AND-SELF:  (P.C. = 16)
   Arg 0 (FLAVOR-NAME): ZWEI:ZMACS-EDITOR

ZWEI:MAKE-BUFFER-CURRENT:  (P.C. = 4)
   Rest arg (ARGS): (#<FILE-BUFFER "VAX-ANGLES.LISP PS:<LAURA> OZ:" 20030723>)

ZWEI:ROTATE-BUFFER-HISTORY:  (P.C. = 26)
   Arg 0 (N): 2

ZWEI:COM-SELECT-PREVIOUS-BUFFER:  (P.C. = 30)

ZWEI:COMMAND-EXECUTE:  (P.C. = 55)
   Arg 0 (COMMAND): ZWEI:COM-SELECT-PREVIOUS-BUFFER
   Arg 1 (CHAR): 1514
   Arg 2 (PREFIX-CHAR): NIL
   Arg 3 (HOOK-LIST): NIL

ZWEI:PROCESS-COMMAND-CHAR:  (P.C. = 14)
   Arg 0 (CH): 1514

Rest of stack:
(:METHOD ZWEI:EDITOR :EDIT):  (P.C. = 200)
ZWEI:COMMAND-LOOP:  (P.C. = 73)
ZWEI:CONTROL-R:  (P.C. = 24)
ZWEI:SOURCE-COMPARE-MERGE-QUERY:  (P.C. = 454)
ZWEI:COM-SOURCE-COMPARE-MERGE:  (P.C. = 55)
ZWEI:COM-EXTENDED-COMMAND:  (P.C. = 27)
ZWEI:COMMAND-EXECUTE:  (P.C. = 55)
ZWEI:PROCESS-COMMAND-CHAR:  (P.C. = 14)
(:METHOD ZWEI:EDITOR :EDIT):  (P.C. = 200)
(:METHOD ZWEI:TOP-LEVEL-EDITOR :COMBINED :EDIT):  (P.C. = 41)
ZWEI:ZMACS-WINDOW-TOP-LEVEL:  (P.C. = 16)
SI:PROCESS-TOP-LEVEL:  (P.C. = 53)