diff --git a/birch-beer.cabal b/birch-beer.cabal
--- a/birch-beer.cabal
+++ b/birch-beer.cabal
@@ -1,6 +1,6 @@
 cabal-version: >=1.10
 name: birch-beer
-version: 0.1.1.0
+version: 0.1.1.1
 license: GPL-3
 license-file: LICENSE
 copyright: 2019 Gregory W. Schwartz
diff --git a/src/BirchBeer/Plot.hs b/src/BirchBeer/Plot.hs
--- a/src/BirchBeer/Plot.hs
+++ b/src/BirchBeer/Plot.hs
@@ -21,6 +21,7 @@
 -- Remote
 import Control.Monad (forM, mapM, join)
 import Control.Monad.State (State (..))
+import Data.Bool (bool)
 import Data.Colour (AffineSpace (..), withOpacity)
 import Data.Colour.Names (black)
 import Data.Colour.Palette.BrewerSet (brewerSet, ColorCat(..), Kolor)
@@ -438,7 +439,7 @@
     itemDia = drawGraphLabel cm items
     background = circle 1 # fc white # lw none # scaleUToY scaleVal
     maxLeafNodeSize = unDrawMaxLeafNodeSize . _drawMaxLeafNodeSize $ opts
-    textDia True  = text (show n) # fc black
+    textDia True  = text (show n) # fc (bool black white . isNothing $ cm)
     textDia False = mempty
     dnn = unDrawNodeNumber . _drawNodeNumber $ opts
     scaleVal = if unDrawNoScaleNodesFlag . _drawNoScaleNodesFlag $ opts
@@ -473,7 +474,7 @@
                 else getScaledLeafSize maxClusterSize' maxLeafNodeSize items
     maxLeafNodeSize = unDrawMaxLeafNodeSize . _drawMaxLeafNodeSize $ opts
     maxClusterSize' = maxClusterSize . unClusterGraph $ gr
-    textDia True  = text (show n) # fc black
+    textDia True  = text (show n) # fc (bool black white . isNothing $ cm)
     textDia False = mempty
     dnn = unDrawNodeNumber . _drawNodeNumber $ opts
 drawGraphNode opts cm ncm mcm _ gr (n, Nothing) pos =
@@ -491,7 +492,7 @@
             # lw 0.4
             # scaleUToY (unDrawMaxNodeSize . _drawMaxNodeSize $ opts)
     dnn = unDrawNodeNumber . _drawNodeNumber $ opts
-    textDia True  = text (show n) # fc black
+    textDia True  = text (show n) # fc (bool black white . isNothing $ cm)
     textDia False = mempty
     rootDiffer 0 = lw none
     rootDiffer n = lw none