- (djm) Fix .Nm in mdoc2man.pl from pspencer@fields.utoronto.ca
diff --git a/mdoc2man.pl b/mdoc2man.pl
index fddb2e0..928fc5d 100644
--- a/mdoc2man.pl
+++ b/mdoc2man.pl
@@ -318,11 +318,13 @@
 
 		if (/^Nm$/)
 		{
-			$name = shift @words
+			my $n = $name;
+			$n = shift @words
 				if (@words > 0);
+			$name = $n unless $name;
 			$retval .= ".br\n"
 				if ($synopsis);
-			$retval .= "\\fB$name\\fP";
+			$retval .= "\\fB$n\\fP";
 			$nospace = 1
 				if (! $nospace && $words[0] =~ m/^[\.,]/);
 			next;