diff --git a/src/getchar.c b/src/getchar.c
index 686861aa47d305b790e41a2a26372cf43adb69fb..311fe584d62e029132580279feba221ece289524 100644
--- a/src/getchar.c
+++ b/src/getchar.c
@@ -1410,6 +1410,19 @@ using_script()
 }
 #endif
 
+/*
+ * This function is called just before doing a blocking wait.  Thus after
+ * waiting 'updatetime' for a character to arrive.
+ */
+    void
+before_blocking()
+{
+    updatescript(0);
+#ifdef FEAT_EVAL
+    garbage_collect();
+#endif
+}
+
 /*
  * updatescipt() is called when a character can be written into the script file
  * or when we have waited some time for a character (c == 0)