diff --git a/doc/seq-var.xml b/doc/seq-var.xml
index 0278ce3..fb383a9 100644
--- a/doc/seq-var.xml
+++ b/doc/seq-var.xml
@@ -24,5 +24,6 @@ a drawing.
 <tr><td>dashwid</td><td>0.05</td><td>Interval for dashed lines</td></tr>
 <tr><td>maxpswid</td><td>11</td><td>Maximum width of picture</td></tr>
 <tr><td>maxpsht</td><td>11</td><td>Maximum height of picture</td></tr>
+<tr><td>underline</td><td>1</td><td>Underline the name of objects</td></tr>
 </table>
 </notes>
diff --git a/doc/ver.xml b/doc/ver.xml
index 81b81b1..fef03b2 100644
--- a/doc/ver.xml
+++ b/doc/ver.xml
@@ -4,6 +4,9 @@
 <dl>
 
 <dt>Version 5.3 Under development </dt><dd>
+<ul>
+<li>Sequence diagrams provide an option to specify whether objects are
+underlined or not.</li>
 </dd>
 
 <dt>Version 5.2 2008-12-03</dt><dd>
diff --git a/sequence.pic b/sequence.pic
index 91ec8da..35e443e 100644
--- a/sequence.pic
+++ b/sequence.pic
@@ -34,13 +34,14 @@ define comment_default_move {up 0.25 right 0.25};
 comment_default_ht=0.5;
 # Comment width
 comment_default_wid=1;
-
+# Underline object name
+underline=1;
 
 # Create a new object(name,label)
 define object {
 	$1: box $2; move;
 	# Could also underline text with \mk\ul\ul\ul...\rt
-	{
+	if (underline) then {
 		line from $1.w + (.1, -.07) to $1.e + (-.1, -.07);
 	}
 	move to $1.e;