diff --git a/saturn/main.fnl b/saturn/main.fnl
index b123b42..c30c47e 100644
--- a/saturn/main.fnl
+++ b/saturn/main.fnl
@@ -157,6 +157,7 @@
         vals (. parsed "Desktop Entry")]
     (when vals.Icon
       (tset vals "IconImage" (find-icon vals.Icon)))
+    (tset vals "ID" (f:sub 0 -9))
     vals))
 
 (fn current-user-home []