diff --git a/ecrire/public/references.php b/ecrire/public/references.php
index fe7dcfa541858de4a2096278f1232c38d70e3e10..267c4429f03e2455bcaeb84a16af36774be3c673 100644
--- a/ecrire/public/references.php
+++ b/ecrire/public/references.php
@@ -60,59 +60,34 @@ function index_pile($idb, $nom_champ, &$boucles, $explicite='') {
 	return('$Pile[0][\''. strtolower($nom_champ) . '\']');
 }
 
-/**
- * de'termine le nom de la table associe'e a un type de boucle
- * $r est le type de boucle et $s le serveur (issus de la structure boucles)
- * retourne un tableau de deux entre'es : le nom reel de la table et celui
- * sans le prefixe des tables spip (identiques pour les tables non-spip)
- */
-function table_de_type_requete($r, $s) {
-	global $table_des_tables;
-
+function index_tables_en_pile($idb, $nom_champ, &$boucles)
+{
+	global $exceptions_des_tables, $table_des_tables, $tables_des_serveurs_sql;
+	$r = $boucles[$idb]->type_requete;
+	$s = $boucles[$idb]->sql_serveur;
 	if (!$s) 
 		{ $s = 'localhost';
     // indirection (pour les rares cas ou le nom de la table!=type)
 		    $t = $table_des_tables[$r];
 		  }
 		// pour les tables non Spip
-	if (!$t)
-	  return array($r, $r);
-	else
-	  return array('spip_' . $t, $t);
-}
-
-/** retourne la description d'une table, telle qu'elle se pre'sente
- * dans serial.php, ou de'termine'e automatiquement
- * $nom_table et $t sont le nom de la table prefixe'e ou pas
- * $s est le nom du serveur
- */
-function description_table($nom_table, $t, $s) {
-	global $table_des_tables, $tables_des_serveurs_sql;
+	if (!$t) {$nom_table = $t = $r; } else $nom_table = 'spip_' . $t;
 
 	$desc = $tables_des_serveurs_sql[$s][$nom_table];
+#		spip_log("Go: idb='$idb' r='$r' nom='$nom_champ' s=$s t=$t desc=" . array_keys($desc));
 
 	if (!isset($desc['field'])) {
 		$desc = $table_des_tables[$r] ?  (($GLOBALS['table_prefix'] ? $GLOBALS['table_prefix'] : 'spip') . '_' . $t) : $nom_table;
 
-		$desc = spip_abstract_showtable($desc, $s);
+		$desc = spip_abstract_showtable($desc, $boucles[$idb]->sql_serveur);
 		if (!isset($desc['field'])) {
-			erreur_squelette(_T('zbug_table_inconnue', array('table' => $nom_table)));
+			erreur_squelette(_T('zbug_table_inconnue', array('table' => $r)),
+					   "'$idb'");
 # continuer pour chercher l'erreur suivante
-			return  array("'#" . $nom_table . " ?'",'');
+			return  array("'#" . $r . ':' . $nom_champ . "'",'');
 		}
 		$tables_des_serveurs_sql[$s][$nom_table] = $desc;
 	}
-	return $desc;
-}
-
-function index_tables_en_pile($idb, $nom_champ, &$boucles) {
-	global $exceptions_des_tables, $tables_des_serveurs_sql;
-
-	$r = $boucles[$idb]->type_requete;
-	$s = $boucles[$idb]->sql_serveur;
-
-	list($nom_table, $t)= table_de_type_requete($r, $s);
-	$desc= description_table($nom_table, $t, $s);
 	
 	$excep = $exceptions_des_tables[$r][$nom_champ];
 	if ($excep) {