diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el
index abf3ab0951e..ffa20d21e63 100644
--- a/lisp/term/pgtk-win.el
+++ b/lisp/term/pgtk-win.el
@@ -302,7 +302,10 @@ If you don't want stock icons, set the variable to nil."
   :type '(choice (const :tag "Don't use stock icons" nil)
 		 (repeat (choice symbol
 				 (cons (string :tag "Emacs icon")
-				       (string :tag "Stock/named")))))
+                                       (choice
+                                        (group (string "Named")
+                                               (string "Stock"))
+				        (string :tag "Stock/named"))))))
   :group 'pgtk)
 
 (defconst x-gtk-stock-cache (make-hash-table :weakness t :test 'equal))