diff --git a/main.tcl b/main.tcl
index fa82a336..bd4bc587 100644
--- a/main.tcl
+++ b/main.tcl
@@ -594,7 +594,9 @@ if {[info exists ::entry]} {
         }
         foreach programFilename [list {*}[glob virtual-programs/*.folk] \
                                      {*}[glob virtual-programs/*/*.folk] \
-                                     {*}[glob -nocomplain "user-programs/[info hostname]/*.folk"]] {
+                                     {*}[glob -nocomplain "user-programs/[info hostname]/*.folk"] \
+                                     {*}[glob -nocomplain "$::env(HOME)/folk-live/*.folk"] \
+                                     {*}[glob -nocomplain "$::env(HOME)/folk-live/*/*.folk"]] {
             if {[string match "*/_archive/*" $programFilename]} { continue }
             loadProgram $programFilename
         }