From 3b569b2d93c83c89066aadc2e810b44644cff11d Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 19 Oct 2011 16:37:37 +0200
Subject: [PATCH] text-replacements.ly: don't rely on assoc-set!'s sideeffect
 only.

---
 ly/text-replacements.ly | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ly/text-replacements.ly b/ly/text-replacements.ly
index 94d3dacc2e..6b522d65bf 100644
--- a/ly/text-replacements.ly
+++ b/ly/text-replacements.ly
@@ -18,9 +18,10 @@
 \version "2.15.13"
 
 #(define (add-text-replacements! alist)
-   (assoc-set! text-font-defaults 'replacement-alist
-     (cdaar
-       (internal-add-text-replacements (list text-font-defaults) alist))))
+   (set! text-font-defaults
+	 (assoc-set! text-font-defaults 'replacement-alist
+		     (cdaar
+		      (internal-add-text-replacements (list text-font-defaults) alist)))))
 
 #(define (include-special-characters)
    (add-text-replacements!
-- 
2.39.2