--- m-orig.tmac	2012-08-02 20:06:16.773907400 +0400
+++ m.tmac	2012-08-02 20:13:49.146429200 +0400
@@ -1003,6 +1003,7 @@
 .\" special case, no dot after level one heading if not H1dot true
 .if (\\n[hd*level]=1)&(\\n[H1dot]=0) .ds hd*mark \\n[H1]
 .\"
+.ds hd-mark-trimmed \\*[hd*mark]\" save hd-mark w/o spaces for references
 .as hd*mark \ \ \"			add spaces between mark and heading
 .if !\\n[hd*arg1] .ds hd*mark\"		no mark for unnumbered
 .\"
@@ -3123,14 +3124,14 @@
 .if !r qrf*pass .tm "SETR: No .INITR in this file"
 .if \\n[Ref] \{\
 .	ds qrf*name qrf*ref-\\$1
-.	if \\n[D]>2 .tm SETR: ref \\*[qrf*name]=\\*[hd*mark],\\n[%]
+.	if \\n[D]>2 .tm SETR: ref \\*[qrf*name]=\\*[hd-mark-trimmed],\\n[%]
 .	\" heading-number
-.	ds \\*[qrf*name]-hn \\*[hd*mark]
+.	ds \\*[qrf*name]-hn \\*[hd-mark-trimmed]
 .	\" page-number
 .	ds \\*[qrf*name]-pn \\n[%]
 .	\"
 .	if \\n[Ref] \{\
-.		tm .ds \\*[qrf*name]-hn \\*[hd*mark]
+.		tm .ds \\*[qrf*name]-hn \\*[hd-mark-trimmed]
 .		tm .ds \\*[qrf*name]-pn \\n[%]
 .		if !'\\$2'' .tm .ds \\*[qrf*name]-xx \\$2
 .	\}