--- m.tmac_2.43	2011-01-04 18:23:15.000000000 +0300
+++ m.tmac	2011-01-04 18:22:26.000000000 +0300
@@ -738,6 +738,17 @@
 .ev
 .nr @verbose-flag 0
 ..
+.\" Wrapper to cancel the side effect of .tag + .br generating
+.\" unwanded vertical space.
+.\" The name of a tag-generating macro is to be passed as the
+.\" first argument.
+.de TAG  
+.  vpt 0
+.  \\$1 \\$2
+.  br
+.  sp -1
+.  vpt 1
+..
 .\" ######## module pict #################
 .nr pict*width 0
 .nr pict*height 0
@@ -1043,7 +1054,7 @@
 .\"---------- user macro HY ------------- 
 .\"	user macro to reset indents
 .if d HY .HY \\n[hd*level] \\n[hd*arg1] "\\$2\\$3"
-.DEVTAG-NH \\n[hd*level]              \" HTML: mark beginning of heading
+.TAG DEVTAG-NH \\n[hd*level]              \" HTML: mark beginning of heading
 .\"-------------------------------------- 
 .nr hd*mark-size \w@\\*[hd*mark]@
 .if (\\n[hd*level]<=\\n[Hc])&\\n[hd*htype] .ce\" center if level<=Hc
@@ -1091,7 +1102,7 @@
 .nr hd*last-pos \\n[nl]
 .nr hd*last-hsize \\n[.k]
 .nr par@ind-flag 0
-.DEVTAG-EO-H  \" HTML: end of heading
+.TAG DEVTAG-EO-H  \" HTML: end of heading
 ..
 .\"--------
 .de HM