diff --git a/Graphics/Diagram/Gtk.hs b/Graphics/Diagram/Gtk.hs
index 8cde612..bdb4c77 100644
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -33,7 +33,7 @@ diagAlgos =
   ,DiagAlgo (4, [quadPathSquare, squares, coordPointsText,
                  coordPoints, plotterBG])
   ,DiagAlgo (5, [kdRange, kdSquares, coordPointsText, coordPoints, plotterBG])
-  ,DiagAlgo (6, [polyLines, coordPointsText, polyTriCategorizedPoints,
+  ,DiagAlgo (6, [monotonePolys, coordPointsText, polyTriCategorizedPoints,
                  plotterBG])]