diff --git a/build/basics.tcl b/build/basics.tcl
index d53aa06b..ea102157 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -1,3 +1,5 @@
+log_progress "ENTERING BUILD SCRIPT: BASICS"
+
 expect "\n"; type "\033g"
 pdset
 
diff --git a/build/build.tcl b/build/build.tcl
index f4433f40..0233592a 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -1,3 +1,12 @@
+proc log_progress {x} {
+    puts ""
+    puts "$x"
+    puts [exec date]
+    puts ""
+}
+
+log_progress "ENTERING MAIN BUILD SCRIPT"
+
 # If the environment variable BASICS is set to "yes", only build
 # the basics; ITS, tools, infastructure.
 if {![info exists env(BASICS)]} {
@@ -140,3 +149,7 @@ type "quit\r"
 
 shutdown
 quit_emulator
+
+puts ""
+puts "MAIN BUILD SCRIPT DONE"
+puts [exec date]
diff --git a/build/lisp.tcl b/build/lisp.tcl
index ff47ba9d..146edefe 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -1,3 +1,5 @@
+log_progress "ENTERING BUILD SCRIPT: LISP"
+
 # lisp
 respond "*" ":link l;fasdfs 1,lisp;.fasl defs\r"
 respond "*" ":link lisp;grind fasl,lisp;gfile fasl\r"
diff --git a/build/mark.tcl b/build/mark.tcl
index 3282129d..5c566643 100644
--- a/build/mark.tcl
+++ b/build/mark.tcl
@@ -1,3 +1,5 @@
+log_progress "ENTERING BUILD SCRIPT: MARK"
+
 start_salv
 
 mark_packs
diff --git a/build/misc.tcl b/build/misc.tcl
index 0c46da7f..63b3868c 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1,3 +1,5 @@
+log_progress "ENTERING BUILD SCRIPT: MISC"
+
 respond "*" ":print teach;..new. (udir)\r"
 type ":vk\r"
 
diff --git a/build/muddle.tcl b/build/muddle.tcl
index cb9ca574..9a4a3c94 100644
--- a/build/muddle.tcl
+++ b/build/muddle.tcl
@@ -1,3 +1,5 @@
+log_progress "ENTERING BUILD SCRIPT: MUDDLE"
+
 respond "*" ":cwd mudsys\r"
 respond "*" ":midas /t midasm_midas\r"
 respond "\n" "itssw==1\r"
diff --git a/build/sail.tcl b/build/sail.tcl
index 6f2c971a..5866c07d 100644
--- a/build/sail.tcl
+++ b/build/sail.tcl
@@ -1,3 +1,5 @@
+log_progress "ENTERING BUILD SCRIPT: SAIL"
+
 # stktrn
 respond "*" ":cwd sail\r"
 respond "*" ":fail stktrn\r"
diff --git a/build/scheme.tcl b/build/scheme.tcl
index 8d7bdc8f..420f26f8 100644
--- a/build/scheme.tcl
+++ b/build/scheme.tcl
@@ -1,3 +1,5 @@
+log_progress "ENTERING BUILD SCRIPT: SCHEME"
+
 # Old? Scheme interpreter
 respond "*" "complr\013"
 respond "_" "scheme;_nschsy\r"