From be29db1155afb46e86fb757349d0cd56c19e2dcc Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Tue, 14 May 2024 15:27:47 -0400
Subject: main: Fix entry (fixes tests)

---
 main.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main.tcl b/main.tcl
index 9a20500f..dd57b8ad 100644
--- a/main.tcl
+++ b/main.tcl
@@ -14,7 +14,7 @@ if {[info exists ::argv0] && $::argv0 eq [info script]} {
                           ([info exists ::env(XDG_SESSION_TYPE)] &&
                            $::env(XDG_SESSION_TYPE) ne "tty")}]
     if {[info exists ::env(FOLK_ENTRY)]} {
-        set ::entry $::env(FOLK_ENTRY)
+        set ::entry [list source $::env(FOLK_ENTRY)]
     } else {
         set ::entry {
             loadVirtualPrograms
-- 
cgit v1.2.3