--- e.tmac.orig	2012-01-23 19:25:54.000000000 +0100
+++ e.tmac	2012-01-23 22:32:07.000000000 +0100
@@ -511,9 +511,14 @@
 .
 .de bl			\" *** contiguous blank lines
 .br
address@hidden \\$1
+.sp \\$1
+..
+.
+.de @s			\" --- diversion-surviving space test
 .ne \\$1
 .rs
-.sp \\$1
+.if !'\\n(.z'' address@hidden \\$1
 ..
 .
 .de n1			\" *** line numbering 1