diff --git a/android-client/theme/make-style.ps1 b/android-client/theme/make-style.ps1
index 390eb8c..d92c996 100644
--- a/android-client/theme/make-style.ps1
+++ b/android-client/theme/make-style.ps1
@@ -35,8 +35,10 @@ foreach ($style in 'editstyle', 'memostyle') {
 
     # Un champ de saisie prend la forme d'une pilule, comme la barre de
     # recherche d'Android ; un memo garde ses coins sobres.
-    if ($style -eq 'editstyle') { $radius = '24.000000000000000000' }
-    else                        { $radius = '10.000000000000000000' }
+    # 14, comme les boutons de ligne : une pilule faisait ressembler un champ
+    # de saisie a une commande, et l'arrondi restait excessif meme une fois le
+    # remplissage creuse.
+    $radius = '14.000000000000000000'
 
     # La fenetre couvre le bloc 'background' qui suit immediatement le nom.
     for ($i = $at; $i -lt [Math]::Min($at + 24, $lines.Count); $i++) {
diff --git a/android-client/theme/pm-dark.style b/android-client/theme/pm-dark.style
index 509de97..a8ca3c4 100644
--- a/android-client/theme/pm-dark.style
+++ b/android-client/theme/pm-dark.style
@@ -2080,8 +2080,8 @@
       Height = 22.000000000000000000
       HitTest = False
       Stroke.Color = x00000000
-      XRadius = 24.000000000000000000
-      YRadius = 24.000000000000000000
+      XRadius = 14.000000000000000000
+      YRadius = 14.000000000000000000
       Width = 107.000000000000000000
     end
     object TBrushObject
@@ -2518,8 +2518,8 @@
       Padding.Right = 2.000000000000000000
       Padding.Bottom = 2.000000000000000000
       Stroke.Color = x00000000
-      XRadius = 10.000000000000000000
-      YRadius = 10.000000000000000000
+      XRadius = 14.000000000000000000
+      YRadius = 14.000000000000000000
       Width = 334.000000000000000000
       object TLayout
         StyleName = 'content'