1 files changed, 1 insertions, 0 deletions

diff --git a/bragi/bar.hs b/bragi/bar.hs
index 1cf10fdf..40548f37 100755
--- a/bragi/bar.hs
+++ b/bragi/bar.hs
@@ -65,6 +65,7 @@ instance Ord Item where
   x `compare` y = mconcat
                   [ (isNothing $ itemOpened x) `compare` (isNothing $ itemOpened y)
                   , itemOpened x `compare` itemOpened y
+                  , (isNothing $ itemExpires x) `compare` (isNothing $ itemExpires y)
                   , itemExpires x `compare` itemExpires x
                   , itemKind x `compare` itemKind x
                   , itemBought x `compare` itemBought x