diff --git a/geni-gui.cabal b/geni-gui.cabal
--- a/geni-gui.cabal
+++ b/geni-gui.cabal
@@ -1,5 +1,5 @@
 Name:           geni-gui
-Version:        0.24
+Version:        0.24.1
 License:        GPL
 License-file:   LICENSE
 Author:         Carlos Areces and Eric Kow
@@ -42,7 +42,6 @@
                , json
                , mtl
                , process
-               , split
                , transformers
                , wx       >= 0.12
                , wxcore
diff --git a/src/NLP/GenI/GraphvizShow.hs b/src/NLP/GenI/GraphvizShow.hs
--- a/src/NLP/GenI/GraphvizShow.hs
+++ b/src/NLP/GenI/GraphvizShow.hs
@@ -216,7 +216,8 @@
     idxB = getIdx gdown
     idx  = tackOn "." idxT idxB
     --
-    lexeme  = TL.intercalate "!" [ TL.fromChunks [n] | n <- glexeme gn ]
+    lexeme  = TL.intercalate "!" $ filter (/= cat)
+        [ TL.fromChunks [n] | n <- getLexeme gn ]
 
 getGnVal :: (GNode GeniVal -> Flist GeniVal)
          -> T.Text
@@ -225,10 +226,10 @@
 getGnVal getFeat attr gn =
     listToMaybe [ v | AvPair a v <- getFeat gn, a == attr ]
 
--- | @x `tackOn p` y@` is @TL.concat [x, p, y]@ if @y@ is not null
---   otherwise is just x
+-- | @x `tackOn p` y@` is @TL.concat [x, p, y]@ if @y@ is neither null
+--   nor identical to @x@.  Otherwise it is just @x@
 tackOn :: TL.Text -> TL.Text -> TL.Text -> TL.Text
-tackOn p x y = if TL.null y then x else TL.concat [ x, p, y ]
+tackOn p x y = if TL.null y || x == y then x else TL.concat [ x, p, y ]
 
 graphvizShow_ :: GraphvizShowString a => a -> TL.Text
 graphvizShow_ = graphvizShow