diff --git a/Data/Universe/Helpers.hs b/Data/Universe/Helpers.hs
--- a/Data/Universe/Helpers.hs
+++ b/Data/Universe/Helpers.hs
@@ -36,7 +36,7 @@
 -- the output will be a list whose elements are each from a distinct input
 -- list.
 diagonals :: [[a]] -> [[a]]
-diagonals = go [] where
+diagonals = tail . go [] where
 	-- it is critical for some applications that we start producing answers
 	-- before inspecting es_
 	go b es_ = [h | h:_ <- b] : case es_ of
diff --git a/universe-base.cabal b/universe-base.cabal
--- a/universe-base.cabal
+++ b/universe-base.cabal
@@ -1,5 +1,5 @@
 name:                universe-base
-version:             1.0.2
+version:             1.0.2.1
 synopsis:            A class for finite and recursively enumerable types and some helper functions for enumerating them
 homepage:            https://github.com/dmwit/universe
 license:             BSD3
@@ -16,7 +16,7 @@
 source-repository this
     type:            git
     location:        https://github.com/dmwit/universe
-    tag:             base-1.0.2
+    tag:             base-1.0.2.1
 
 library
   exposed-modules:     Data.Universe.Class, Data.Universe.Helpers