diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm
index b4d6e14..e24810c 100644
--- a/scsh/syscalls.scm
+++ b/scsh/syscalls.scm
@@ -612,7 +612,7 @@
                                     proc-group))))
               signal))
 (define (itimer sec)
-  ((structure-ref events schedule-timer-interrupt!) (* sec 1000)))
+  ((structure-ref scsh-events schedule-timer-interrupt!) (* sec 1000)))
 ;;; SunOS, not POSIX:
 ;;; (define-foreign signal-process-group/errno
 ;;;   (killpg (integer proc-group) (integer signal))