diff --git a/src/common/spells/spells.c b/src/common/spells/spells.c
index 3c237b125..4a60ea90c 100644
--- a/src/common/spells/spells.c
+++ b/src/common/spells/spells.c
@@ -2232,6 +2232,10 @@ sp_stormwinds(castorder *co)
       }
     }
   }
+  if (erfolg<pa->length) {
+    ADDMSG(&mage->faction->msgs, msg_message("stormwinds_reduced", 
+      "unit ships maxships", mage, erfolg, pa->length));
+  }
   /* melden, 1x pro Partei auf Schiff und für den Magier */
   fset(mage->faction, FFL_SELECT);
   for (u = r->units; u; u = u->next ) {
diff --git a/src/res/messages.xml b/src/res/messages.xml
index f65d48ece..dd973100d 100644
--- a/src/res/messages.xml
+++ b/src/res/messages.xml
@@ -6305,13 +6305,20 @@
     <text locale="de">"$unit($unit) wird kurz von einem magischen Licht umhüllt."</text>
     <text locale="en">"$unit($unit) is briefly surrounded by a magical light."</text>
   </message>
+  <message name="stormwinds_reduced" section="events">
+    <type>
+      <arg name="unit" type="unit"/>
+      <arg name="ships" type="int"/>
+      <arg name="maxships" type="int"/>
+    </type>
+    <text locale="de">"$unit($unit) konnte nur $int($ships) von $int($maxships) Schiffen verzaubern."</text>
+  </message>
   <message name="stormwinds_effect" section="events">
     <type>
       <arg name="unit" type="unit"/>
     </type>
     <text locale="de">"$unit($unit) beschwört einen magischen Wind, der die Schiffe über das Wasser treibt."</text>
     <text locale="en">"$unit($unit) calls up a magical storm that whips the ship over the waters."</text>
-    <text locale="fr">"$unit($unit) calls up a magical storm that whips the ship over the waters."</text>
   </message>
   <message name="error59" section="errors">
     <type>