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 f1422086f069193a9cdd18efcf1a90dcf1063565..5113af0357b7134c6d524ab05b9a59150e060409 100644 (file)
--- 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)))))