gtk-screen: Remove references to deprecated bindings.

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 4b38376e8fb0e8c4ce56c1f2d471bfd19a64378c..1d8d6f1decf2def93c13ecf6d49063c9d271d9ce 100644 (file)
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -781,7 +781,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
                |Super_L| |Super_R| |Hyper_L| |Hyper_R|)
               #f)
              (else (if (symbol? key)
-                       (intern (symbol-name key))
+                       (intern (symbol->string key))
                        key)))))
     (if (char? k)
        (if (char=? k #\BEL)