diff --git a/tmac/an.tmac b/tmac/an.tmac
index f99213f26..6ced58a41 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -271,8 +271,7 @@
 .  ds an-title "\\$1\"
 .  if \\n[CT] .stringup an-title
 .  ds an-section "\\$2\"
-.  ie (\\n[.$] > 4)    .ds an-extra3 "\\$5\"
-.  el \{ .ie '\\$2'1'  .ds an-extra3 \\*[an*section1]\"
+.  ie \{ .ie '\\$2'1'  .ds an-extra3 \\*[an*section1]\"
 .  el \{ .ie '\\$2'2'  .ds an-extra3 \\*[an*section2]\"
 .  el \{ .ie '\\$2'3'  .ds an-extra3 \\*[an*section3]\"
 .  el \{ .ie '\\$2'4'  .ds an-extra3 \\*[an*section4]\"
@@ -282,7 +281,7 @@
 .  el \{ .ie '\\$2'8'  .ds an-extra3 \\*[an*section8]\"
 .  el \{ .ie '\\$2'9'  .ds an-extra3 \\*[an*section9]\"
 .  el                  .ds an-extra3 \" empty
-.  \}\}\}\}\}\}\}\}\}
+.  \}\}\}\}\}\}\}\}
 .
 .  ds an-extra1 "\\$3\"
 .  ie (\\n[.$] > 3)    .ds an-extra2 "\\$4\"
@@ -303,11 +302,12 @@
 .    rm an-msg
 .  \}
 .
-.  if '\\*[an-extra3]'' \{\
+.  ie '\\$5\\*[an-extra3]'' \{\
 .    ds an-msg .\\$0 missing fifth argument and second argument '\\$2'\"
 .    as an-msg " not a recognized manual section; specify volume title\"
 .    an-style-warn \\*[an-msg]
 .    rm an-msg
+.  el .ds an-extra3 "\\$5\"
 .  \}
 .
 .  \" Initialize environment for headers and footers.