===================================================================
RCS file: /cvs/mandoc/mdoc_term.c,v
retrieving revision 1.63
retrieving revision 1.65
diff -u -p -r1.63 -r1.65
--- mandoc/mdoc_term.c	2009/07/25 16:03:03	1.63
+++ mandoc/mdoc_term.c	2009/07/29 09:02:41	1.65
@@ -1,4 +1,4 @@
-/*	$Id: mdoc_term.c,v 1.63 2009/07/25 16:03:03 kristaps Exp $ */
+/*	$Id: mdoc_term.c,v 1.65 2009/07/29 09:02:41 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -1398,10 +1398,18 @@ termp_fd_post(DECL_ARGS)
 static int
 termp_sh_pre(DECL_ARGS)
 {
-
+	/* 
+	 * XXX: undocumented: using two `Sh' macros in sequence has no
+	 * vspace between calls, only a newline.
+	 */
 	switch (node->type) {
-	case (MDOC_HEAD):
+	case (MDOC_BLOCK):
+		if (node->prev && MDOC_Sh == node->prev->tok)
+			if (NULL == node->prev->body->child)
+				break;
 		term_vspace(p);
+		break;
+	case (MDOC_HEAD):
 		pair->flag |= ttypes[TTYPE_SECTION];
 		break;
 	case (MDOC_BODY):