From d6f40b5437535310afe5cfbf43dde5a6c80e92b1 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Wed, 24 Feb 2021 11:33:14 -0800
Subject: [PATCH] set makesysname

---
 sources/YREM.CM | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sources/YREM.CM b/sources/YREM.CM
index 5536f3d0..157ca98e 100644
--- a/sources/YREM.CM
+++ b/sources/YREM.CM
@@ -1,6 +1,6 @@
 "
 (PROGN(LOAD(CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE MEDLEYDIR)) (QUOTE /sources/LOADUP.LISP)))(HARDRESET))
-SHH(PROGN(IL:ENDLOADUP)(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(IL:L-CASE (QUOTE /loadups/lisp.sysout)))))
+SHH(PROGN(IL:ENDLOADUP)(SETQ IL:MAKESYSNAME ':MEDLEY)(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(IL:L-CASE (QUOTE /loadups/lisp.sysout)))))
 (IL:LOGOUT T)
 
 "