From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 9 Aug 2019 18:29:48 +0000 (-0700)
Subject: x11-screen: Fix cut/paste after upcasing X atom names.
X-Git-Tag: mit-scheme-pucked-10.1.20~12^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b188a1fcf574e99f9a5e3d55c3be7c1e7ab04d69;p=mit-scheme.git

x11-screen: Fix cut/paste after upcasing X atom names.
---

diff --git a/src/x11-screen/x11-screen.scm b/src/x11-screen/x11-screen.scm
index f1422086f..5113af035 100644
--- a/src/x11-screen/x11-screen.scm
+++ b/src/x11-screen/x11-screen.scm
@@ -856,7 +856,7 @@ USA.
 		   (let ((string (x-get-atom-name display atom)))
 		     (if (not (string? string))
 			 (error "X error (XGetAtomName):" string atom))
-		     (intern string))))
+		     (string->symbol string))))
 	      (hash-table-set! table atom symbol)
 	      symbol)))))