diff --git a/calcit.cirru b/calcit.cirru
index 44657b9..3d2e065 100644
--- a/calcit.cirru
+++ b/calcit.cirru
@@ -3385,23 +3385,60 @@
                                                 :data $ {}
                                                   |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |x)
                                                   |j $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |y)
-                                              |r $ %{} :Expr (:at 1539099101998) (:by |root)
+                                              |r $ %{} :Expr (:at 1711604931036) (:by |B1y7Rc-Zz)
                                                 :data $ {}
-                                                  |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |-)
-                                                  |j $ %{} :Expr (:at 1539099101998) (:by |root)
+                                                  |D $ %{} :Leaf (:at 1711604957557) (:by |B1y7Rc-Zz) (:text |if)
+                                                  |L $ %{} :Expr (:at 1711604957933) (:by |B1y7Rc-Zz)
                                                     :data $ {}
-                                                      |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |:started-at)
+                                                      |T $ %{} :Leaf (:at 1711604957933) (:by |B1y7Rc-Zz) (:text |and)
+                                                      |b $ %{} :Expr (:at 1711604957933) (:by |B1y7Rc-Zz)
+                                                        :data $ {}
+                                                          |T $ %{} :Leaf (:at 1711604957933) (:by |B1y7Rc-Zz) (:text |:alive?)
+                                                          |b $ %{} :Expr (:at 1711604957933) (:by |B1y7Rc-Zz)
+                                                            :data $ {}
+                                                              |T $ %{} :Leaf (:at 1711604957933) (:by |B1y7Rc-Zz) (:text |last)
+                                                              |b $ %{} :Leaf (:at 1711604957933) (:by |B1y7Rc-Zz) (:text |y)
+                                                      |h $ %{} :Expr (:at 1711604957933) (:by |B1y7Rc-Zz)
+                                                        :data $ {}
+                                                          |T $ %{} :Leaf (:at 1711604957933) (:by |B1y7Rc-Zz) (:text |:alive?)
+                                                          |b $ %{} :Expr (:at 1711604957933) (:by |B1y7Rc-Zz)
+                                                            :data $ {}
+                                                              |T $ %{} :Leaf (:at 1711604957933) (:by |B1y7Rc-Zz) (:text |last)
+                                                              |b $ %{} :Leaf (:at 1711604957933) (:by |B1y7Rc-Zz) (:text |x)
+                                                  |T $ %{} :Expr (:at 1539099101998) (:by |root)
+                                                    :data $ {}
+                                                      |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |-)
+                                                      |b $ %{} :Expr (:at 1711605048100) (:by |B1y7Rc-Zz)
+                                                        :data $ {}
+                                                          |T $ %{} :Leaf (:at 1711605048100) (:by |B1y7Rc-Zz) (:text |:started-at)
+                                                          |b $ %{} :Expr (:at 1711605048100) (:by |B1y7Rc-Zz)
+                                                            :data $ {}
+                                                              |T $ %{} :Leaf (:at 1711605048100) (:by |B1y7Rc-Zz) (:text |last)
+                                                              |b $ %{} :Leaf (:at 1711605048100) (:by |B1y7Rc-Zz) (:text |x)
                                                       |j $ %{} :Expr (:at 1539099101998) (:by |root)
                                                         :data $ {}
-                                                          |T $ %{} :Leaf (:at 1629788570879) (:by |B1y7Rc-Zz) (:text |last)
-                                                          |j $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |y)
-                                                  |r $ %{} :Expr (:at 1539099101998) (:by |root)
+                                                          |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |:started-at)
+                                                          |j $ %{} :Expr (:at 1539099101998) (:by |root)
+                                                            :data $ {}
+                                                              |T $ %{} :Leaf (:at 1629788570879) (:by |B1y7Rc-Zz) (:text |last)
+                                                              |j $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |y)
+                                                  |b $ %{} :Expr (:at 1539099101998) (:by |root)
                                                     :data $ {}
-                                                      |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |:started-at)
+                                                      |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |-)
                                                       |j $ %{} :Expr (:at 1539099101998) (:by |root)
                                                         :data $ {}
-                                                          |T $ %{} :Leaf (:at 1629788572315) (:by |B1y7Rc-Zz) (:text |last)
-                                                          |j $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |x)
+                                                          |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |:started-at)
+                                                          |j $ %{} :Expr (:at 1539099101998) (:by |root)
+                                                            :data $ {}
+                                                              |T $ %{} :Leaf (:at 1629788570879) (:by |B1y7Rc-Zz) (:text |last)
+                                                              |j $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |y)
+                                                      |r $ %{} :Expr (:at 1539099101998) (:by |root)
+                                                        :data $ {}
+                                                          |T $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |:started-at)
+                                                          |j $ %{} :Expr (:at 1539099101998) (:by |root)
+                                                            :data $ {}
+                                                              |T $ %{} :Leaf (:at 1629788572315) (:by |B1y7Rc-Zz) (:text |last)
+                                                              |j $ %{} :Leaf (:at 1539099101998) (:by |root) (:text |x)
                                       |t $ %{} :Expr (:at 1692169507081) (:by |B1y7Rc-Zz)
                                         :data $ {}
                                           |T $ %{} :Leaf (:at 1692169509445) (:by |B1y7Rc-Zz) (:text |.sort-by)
diff --git a/compact.cirru b/compact.cirru
index f8d1e12..12611c2 100644
--- a/compact.cirru
+++ b/compact.cirru
@@ -503,9 +503,16 @@
                           filter $ fn (x)
                             not= (first x) (get router-data :enlarge-view)
                           .sort $ fn (x y)
-                            -
-                              :started-at $ last y
-                              :started-at $ last x
+                            if
+                              and
+                                :alive? $ last y
+                                :alive? $ last x
+                              -
+                                :started-at $ last x
+                                :started-at $ last y
+                              -
+                                :started-at $ last y
+                                :started-at $ last x
                           .sort-by $ fn (pair)
                             not $ :alive? (last pair)
                           .map-pair $ fn (pid process)