--- devtag.tmac	2011-01-05 15:55:32.000000000 +0300
+++ devtagnew.tmac	2011-01-05 15:54:10.000000000 +0300
@@ -48,12 +48,30 @@
 .cp 0
 .
 .\" --------------------------------------------------------------------
+.\" TAG <request> [<parameter>...]
+.\" Wrapper to cancel the side effect of .tag + .br generating
+.\" unwanted vertical space.
+.\" The name of a tag-generating request is to be passed as the
+.\" first argument, followed by a list of tag-specific parameters.
+.
+.de TAG  
+.  vpt 0
+.  ds tag-request \\$1
+.  shift
+.  \\*[tag-request] \\$*
+.  br           \" Force the side effect
+.  sp -1        \" and remove it
+.  rm tag-request
+.  vpt 1
+..
+.
+.\" --------------------------------------------------------------------
 .\" DEVTAG <name>
 .\"
 .\"   Emit a tag <name>
 .\"
 .de DEVTAG
-.  tag devtag:\\$*
+.  TAG tag devtag:\\$*
 ..
 .\" --------------------------------------------------------------------
 .\" DEVTAG-NEXT <name>
@@ -61,7 +79,7 @@
 .\"   When the troff state changes, emit tag <name>
 .\"
 .de DEVTAG-NEXT
-.  taga devtag:\\$*
+.  TAG taga devtag:\\$*
 ..
 .
 .\" --------------------------------------------------------------------