diff --git a/src/common/spells/spells.c b/src/common/spells/spells.c
index d6a5b12a2..87ab08802 100644
--- a/src/common/spells/spells.c
+++ b/src/common/spells/spells.c
@@ -4347,25 +4347,27 @@ sp_song_of_peace(castorder *co)
   int cast_level = co->level;
   double force = co->force;
   int duration = 2 + lovar(force/2);
+  message * msg[2] = { NULL, NULL };
 
-  create_curse(mage,&r->attribs, ct_find("peacezone"), force, duration, zero_effect, 0);
+  create_curse(mage, &r->attribs, ct_find("peacezone"), force, duration, zero_effect, 0);
 
   for (u = r->units; u; u = u->next) freset(u->faction, FL_DH);
   for (u = r->units; u; u = u->next ) {
     if (!fval(u->faction, FL_DH) ) {
+      message * m = NULL;
       fset(u->faction, FL_DH);
       if (cansee(u->faction, r, mage, 0)) {
-        sprintf(buf, "%s's Gesangskunst begeistert die Leute. Die "
-            "friedfertige Stimmung des Lieds überträgt sich auf alle "
-            "Zuhörer. Einige werfen ihre Waffen weg.", unitname(mage));
-      }else{
-        sprintf(buf, "In der Luft liegt ein wunderschönes Lied, dessen "
-            "friedfertiger Stimmung sich niemand entziehen kann. "
-            "Einige Leute werfen sogar ihre Waffen weg.");
+        if (msg[0]==NULL) msg[0] = msg_message("song_of_peace_effect_0", "mage", mage);
+        m = msg[0];
+      } else {
+        if (msg[1]==NULL) msg[1] = msg_message("song_of_peace_effect_1", "");
+        m = msg[1];
       }
-      addmessage(r, u->faction, buf, MSG_EVENT, ML_INFO);
+      r_addmessage(r, u->faction, m);
     }
   }
+  if (msg[0]) msg_release(msg[0]);
+  if (msg[1]) msg_release(msg[1]);
   return cast_level;
 
 }
diff --git a/src/res/messages.xml b/src/res/messages.xml
index 4856635b5..bb95006d6 100644
--- a/src/res/messages.xml
+++ b/src/res/messages.xml
@@ -6540,6 +6540,17 @@
     <text locale="de">"$unit($mage) zaubert $spell($spell): $int($dead) $if($eq($dead,1),"Krieger wurde", "Krieger wurden") getötet."</text>
     <text locale="en">"$unit($mage) casts $spell($spell): $int($dead) $if($eq($dead,1),"enemy was", "enemies were") killed."</text>
   </message>
+  <message name="song_of_peace_effect_1" section="magic">
+    <text locale="de">"In der Luft liegt ein wunderschönes Lied, dessen friedfertiger Stimmung sich niemand entziehen kann. Einige Leute werfen sogar ihre Waffen weg."</text>
+    <text locale="en">"A wondrous song fills the air and enchants the public. The song's peaceful melody makes several listeners drop their weapon."</text>
+  </message>
+  <message name="song_of_peace_effect_0" section="magic">
+    <type>
+      <arg name="mage" type="unit"/>
+    </type>
+    <text locale="de">"Die Gesangskunst von $unit($mage) begeistert die Leute. Die friedfertige Stimmung des Lieds überträgt sich auf alle Zuhörer. Einige werfen ihre Waffen weg."</text>
+    <text locale="en">"The marvelous singing of $unit($mage) enchants the public. The song's peaceful melody makes several listeners drop their weapon."</text>
+  </message>
   <message name="summonshadow_effect" section="magic">
     <type>
       <arg name="mage" type="unit"/>