===================================================================
RCS file: /cvs/mandoc/mdoc_term.c,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -p -r1.54 -r1.55
--- mandoc/mdoc_term.c	2009/07/21 15:03:37	1.54
+++ mandoc/mdoc_term.c	2009/07/21 15:35:30	1.55
@@ -1,4 +1,4 @@
-/*	$Id: mdoc_term.c,v 1.54 2009/07/21 15:03:37 kristaps Exp $ */
+/*	$Id: mdoc_term.c,v 1.55 2009/07/21 15:35:30 kristaps Exp $ */
 /*
  * Copyright (c) 2008, 2009 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -689,13 +689,24 @@ fmt_block_vspace(struct termp *p, 
 	}
 
 	/* 
-	 * XXX - not documented: a `-column' does not ever assert
-	 * vertical space within the list.
+	 * XXX - not documented: a `-column' does not ever assert vspace
+	 * within the list.
 	 */
 
 	if (arg_hasattr(MDOC_Column, bl))
 		if (node->prev && MDOC_It == node->prev->tok)
 			return;
+
+	/*
+	 * XXX - not documented: a `-diag' without a body does not
+	 * assert a vspace prior to the next element. 
+	 */
+	if (arg_hasattr(MDOC_Diag, bl)) 
+		if (node->prev && MDOC_It == node->prev->tok) {
+			assert(node->prev->body);
+			if (NULL == node->prev->body->child)
+				return;
+		}
 
 	term_vspace(p);
 }