*** TeXmacs-1.0.0.18-src/TeXmacs-1.0.0.18/progs/boot/base.scm
--- TeXmacs-1.0.0.18-src/TeXmacs-1.0.0.18/progs/boot/base.scm
*************** (define (list-replace l what by)
*** 113,119 ****
    "Replace all occurrences of sublist 'what' by sublist 'by' in l."
    (cond ((null? l) l)
  	((list-starts? l what)
! 	 (let ((tail (sublist l (length what) (length l))))
  	   (append by (list-replace tail what by))))
  	(else (cons (car l) (list-replace (cdr l) what by)))))
  
--- 113,119 ----
    "Replace all occurrences of sublist 'what' by sublist 'by' in l."
    (cond ((null? l) l)
  	((list-starts? l what)
! 	 (let ((tail (list-tail l (length what))))
  	   (append by (list-replace tail what by))))
  	(else (cons (car l) (list-replace (cdr l) what by)))))