Hi, Environments: win2k, cygwin, xemacs 21.5.11 Mandrake Linux, xemacs 21.5.9 Evaluating this snipplet from session.el dumps core: (defun session-yank-string (string half-len-str callback active) "Return menu item STRING with callback CALLBACK. If ACTIVE is non-nil, the item is active. HALF-LEN-STR is the length of the two parts of a abbreviated menu item name." (let ((beg (or (and session-compact-yank-gap-regexp (string-match "\\`[ \t\n]+" string) (match-end 0)) 0)) (end (or (and session-compact-yank-gap-regexp (string-match "[ \t\n]+\\'" string)) (length string)))) (vector (if (> (- end beg) session-edit-menu-max-string) (let ((gap (and session-compact-yank-gap-regexp (string-match session-compact-yank-gap-regexp string (- end half-len-str)) (match-end 0)))) (if (and gap (< gap (- end 3))) (setq half-len-str (- (+ half-len-str half-len-str gap) end)) (setq gap (- end half-len-str))) (concat (session-subst-char-in-string ?\t ?\ (substring string beg (+ beg half-len-str)) t) " ... " (session-subst-char-in-string ?\t ?\ (substring string gap end) t))) (session-subst-char-in-string ?\t ?\ (substring string beg end) t)) callback active))) -- Le