From fa64d485bc54317661bd8cc27e06a0ccd29399db Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Mon, 28 Aug 2000 13:30:56 +0000
Subject: [PATCH] Added a start event during initialisation.

---
 scsh/event.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scsh/event.scm b/scsh/event.scm
index 507dd2e..0dbbccf 100644
--- a/scsh/event.scm
+++ b/scsh/event.scm
@@ -34,6 +34,7 @@
 
 ;Initialize the system.
 (define (install-event-handlers!)
+  (set! *most-recent-event* (make-event interrupt/cont))
   (let loop ((count 0))
     (if (< count number-of-interrupts)  
 	(begin