diff --git a/dataflow.cabal b/dataflow.cabal
--- a/dataflow.cabal
+++ b/dataflow.cabal
@@ -1,5 +1,5 @@
 name:                dataflow
-version:             0.5.1.0
+version:             0.5.2.0
 synopsis:            Generate Graphviz documents from a Haskell representation.
 description:         Outputs .dot files that can be processed by the dot
                      command. Currently it only supports the DFD output format
diff --git a/src/DataFlow/DFD.hs b/src/DataFlow/DFD.hs
--- a/src/DataFlow/DFD.hs
+++ b/src/DataFlow/DFD.hs
@@ -12,14 +12,21 @@
 inAngleBrackets s = "<" ++ s ++ ">"
 
 label :: String -> Attr
+label "" Attr (ID "label") (ID "")
 label s = Attr (ID "label") (ID $ inAngleBrackets s)
 
 bold :: String -> String
+bold "" = ""
 bold s = "<b>" ++ s ++ "</b>"
 
 italic :: String -> String
+italic "" = ""
 italic s = "<i>" ++ s ++ "</i>"
 
+small :: String -> String
+small "" = ""
+small s = "<font point-size=\"10\">" ++ s ++ "</font>"
+
 convertObject :: C.Object -> StmtList
 
 convertObject (C.InputOutput id' name) = [
@@ -66,7 +73,7 @@
                        (IDOperand (NodeID (ID i2) Nothing))) [
       label $
         let d = if null desc then ""
-                             else "<font point-size=\"10\">" ++ desc ++ "</font>"
+                             else 
         in bold op ++ "<br/>" ++ d
     ]
   ]