From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 5 Feb 2017 03:31:07 +0000 (-0700)
Subject: gtk-screen: Remove string->utf8 from os/interprogram-cut.
X-Git-Tag: mit-scheme-pucked-9.2.12~225
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f188e5e18792bdab45228b4e1250fb317f55d02d;p=mit-scheme.git

gtk-screen: Remove string->utf8 from os/interprogram-cut.
---

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 6dbd48ded..415fb245e 100644
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -706,7 +706,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
  (named-lambda (os/interprogram-cut string point)
    (declare (ignore point))
    (gtk-window-set-clipboard-text (gtk-screen-toplevel (selected-screen))
-				  (string->utf8 string))))
+				  string)))
 
 (set!
  os/interprogram-paste