diff --git a/lisp/select.el b/lisp/select.el
index c39bc93deab..897b66a028c 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -165,7 +165,7 @@ The value nil is the same as the list (UTF8_STRING COMPOUND_TEXT STRING)."
 Call `gui-get-selection' with an appropriate DATA-TYPE argument
 decided by `x-select-request-type'.  The return value is already
 decoded.  If `gui-get-selection' signals an error, return nil."
-  (let ((request-type (if (eq window-system 'x)
+  (let ((request-type (if (memq window-system '(x pgtk))
                           (or x-select-request-type
                               '(UTF8_STRING COMPOUND_TEXT STRING))
                         'STRING))