diff --git a/android-client/web/app.html b/android-client/web/app.html
index be754c1..1dfdc2d 100644
--- a/android-client/web/app.html
+++ b/android-client/web/app.html
@@ -224,10 +224,6 @@
         <button class="btn" id="btnCfg">&#9881;&nbsp; Server settings</button>
         <button class="btn" id="btnLog">&#8801;&nbsp; Log</button>
       </div>
-      <!-- Essai du chemin d'ecriture, visible uniquement en build de debogage :
-           Delphi appelle PM.setDebug(true). Il ecrit dans un AUTRE fichier du
-           depot, jamais dans le coffre. -->
-      <button class="btn wide" id="btnWriteTest" hidden>Write test (debug)</button>
     </div>
     <!-- UNE CROIX PAR CHAMP. Vider par la touche retour demande une quarantaine
          d'appuis sur un jeton, et laisse facilement un caractere - ce qui donne
@@ -399,14 +395,6 @@ document.getElementById('btnLog').addEventListener('click', function () {
   var l = document.getElementById('log');
   l.hidden = !l.hidden;
 });
-document.getElementById('btnWriteTest').addEventListener('click', function () {
-  // pushConfig D'ABORD, comme Sync. Sans cela, un jeton qui vient d'etre colle
-  // et dont le champ n'a pas encore perdu le focus n'est pas parti vers Delphi,
-  // qui agit alors avec l'ancien - et rend un 403 parfaitement trompeur.
-  pushConfig();
-  document.getElementById('log').hidden = false;
-  send('writetest');
-});
 
 function esc(s) {
   return String(s == null ? '' : s).replace(/[&<>"]/g, function (c) {
@@ -593,12 +581,6 @@ function openEditor(k) {
   var input = document.getElementById('editval');
   input.value = detailRows[k].v;
   input.focus();
-  input.addEventListener('keydown', function (ev) {
-    if (ev.key !== 'Enter') return;
-    ev.preventDefault();
-    var save = document.querySelector('[data-editsave]');
-    if (save && !save.disabled) save.click();
-  });
   send('touch');
 }
 
@@ -618,6 +600,32 @@ addEventListener('scroll', function (ev) {
   if (box && box.scrollLeft && box.id !== 'folders') box.scrollLeft = 0;
 }, true);
 
+// AUCUN CHAMP D'UNE VUE AU REPOS NE GARDE LE FOCUS.
+//
+// Meme origine que le glissement ci-dessus. La touche de validation du clavier
+// demande "champ suivant", et le suivant dans le document est sur une vue
+// rangee hors du cadre. On y atterrissait sans rien voir : le clavier changeait
+// de forme - numerique pour le code, alphabetique pour la recherche - et ne se
+// refermait plus, puisque le champ qui le tenait ouvert etait hors de l'ecran.
+addEventListener('focusin', function (ev) {
+  var scr = ev.target.closest && ev.target.closest('.screen');
+  if (scr && scr.id !== view) ev.target.blur();
+});
+
+// La validation ferme le clavier au lieu de sauter au champ suivant. Dans
+// l'editeur, elle enregistre : c'est ce qu'on attend de cette touche apres
+// avoir tape un mot de passe.
+addEventListener('keydown', function (ev) {
+  var el = ev.target;
+  if (ev.key !== 'Enter' || !el.classList || !el.classList.contains('field-in'))
+    return;
+  ev.preventDefault();
+  el.blur();
+  if (el.id !== 'editval') return;
+  var save = document.querySelector('[data-editsave]');
+  if (save && !save.disabled) save.click();
+});
+
 function goList() {
   document.body.classList.remove('on-detail');
   document.body.classList.add('on-list');
@@ -644,9 +652,6 @@ var PM = {
     renderRows();
   },
 
-  setDebug: function (on) {
-    document.getElementById('btnWriteTest').hidden = !on;
-  },
   /// Sort du mode edition sans rien demander a Delphi. Sert aux refus
   /// immediats : l'editeur y restait ouvert, boutons desactives, et Cancel
   /// lui-meme ne repondait plus.
diff --git a/mainApk.pas b/mainApk.pas
index 6ac80bb..0a832b9 100644
--- a/mainApk.pas
+++ b/mainApk.pas
@@ -196,7 +196,6 @@ type
 {$IFDEF DEBUG}
     procedure CryptoSelfCheck;
     procedure PatchSelfCheck;
-    procedure WriteTest;
 {$ENDIF}
     procedure OpenEntry(AVaultIndex: Integer);
     procedure SaveEntryPassword(const ANewValue: string);
@@ -302,7 +301,6 @@ begin
   ShowUnlock;
 
 {$IFDEF DEBUG}
-  WebCall('PM.setDebug(true)');
   // VERIFICATION DU CHIFFREMENT AVANT TOUTE ECRITURE REELLE (§4). Elle depose
   // aussi un conteneur sur le disque prive, pour qu'il soit relu par l'AUTRE
   // implementation : un aller-retour avec soi-meme ne prouve que la coherence
@@ -708,65 +706,6 @@ begin
     end).Start;
 end;
 
-/// Essai du chemin d'ecriture, VERS UN AUTRE FICHIER que le coffre.
-///
-/// Le premier PUT est le moment ou une erreur de transport se paie en donnees
-/// perdues : un corps mal forme, un sha mal place, et vault-sync.json est
-/// remplace par quelque chose que personne ne sait relire. L'ecrire d'abord
-/// sous un autre nom prouve exactement les memes choses - enveloppe, jeton,
-/// droits, sha rendu - sans mettre le coffre en jeu une seule fois.
-procedure TForm8.WriteTest;
-var
-  LUrl: string;
-begin
-  if FBusy then Exit;
-  SetBusy(True);
-  // Meme depot, autre fichier : on remplace le dernier segment du chemin.
-  LUrl := FUrl.Substring(0, FUrl.LastIndexOf('/') + 1) + 'write-test.json';
-  TThread.CreateAnonymousThread(
-    procedure
-    var
-      LClient: TSyncClient;
-      LRes, LGet: TSyncResult;
-      LBody, LSha: string;
-    begin
-      LClient := TSyncClient.Create(LUrl, FToken);
-      try
-        LBody := EncryptContainer(
-          Format('{"probe":"write path","at":"%s"}',
-            [FormatDateTime('yyyy-mm-dd"T"hh:nn:ss"Z"',
-               TTimeZone.Local.ToUniversalTime(Now))]),
-          FSyncPwd, 1000);
-        // LIRE D'ABORD, ECRIRE ENSUITE - la sequence reelle. Un sha vide veut
-        // dire « cree », et Gitea refuse alors en 422 si le fichier est deja
-        // la ; c'est le cas de mise a jour qui compte, et il exige le sha
-        // courant. Un 404 au GET signifie simplement qu'il n'existe pas
-        // encore : on cree, sha vide.
-        LGet := LClient.Fetch;
-        if LGet.Status = ssOK then
-          LSha := LGet.ETag
-        else
-          LSha := '';
-        Log(Format('GET first: HTTP %d, sha %s', [LGet.HttpCode,
-            IfThen(LSha = '', '(aucun - creation)', LSha)]));
-
-        Log('PUT ' + LUrl);
-        Log(Format('  token %s (%d chars), body %d chars',
-            [Fingerprint(FToken), Length(FToken), Length(LBody)]));
-        LRes := LClient.Put(LBody, LSha, 'write path probe from phone');
-        case LRes.Status of
-          ssOK:       Log('  OK ' + LRes.HttpCode.ToString + ' - new sha ' + LRes.ETag);
-          ssConflict: Log('  409 - file already there, concurrency control works');
-        else
-          Log('  failed: ' + LRes.HttpCode.ToString + ' ' + LRes.Error);
-        end;
-      finally
-        LClient.Free;
-        TThread.Queue(nil, procedure begin SetBusy(False); end);
-      end;
-    end).Start;
-end;
-
 /// Descend les coordonnees du serveur dans les champs de la page.
 procedure TForm8.PushConfig;
 var
@@ -896,10 +835,6 @@ begin
     // porte est detruite, et HandleWebCommand ne journalise que l'action.
     else if LAction = 'setpwd' then
       SaveEntryPassword(TNetEncoding.URL.Decode(Param('v')))
-{$IFDEF DEBUG}
-    else if LAction = 'writetest' then
-      WriteTest
-{$ENDIF}
 
     else if LAction = 'copy' then
     begin