Get wayland-session wrapper from environment.

diff --git a/daemon/gdm-session.c b/daemon/gdm-session.c
index 3b83fcd3..e60e6a57 100644
--- a/daemon/gdm-session.c
+++ b/daemon/gdm-session.c
@@ -2933,8 +2933,9 @@ gdm_session_start_session (GdmSession *self,
                                                            allow_remote_connections? "--allow-remote-connections " : "",
                                                            command);
                         } else {
-                                program = g_strdup_printf (LIBEXECDIR "/gdm-wayland-session %s\"%s\"",
+                                program = g_strdup_printf (LIBEXECDIR "/gdm-wayland-session %s\"%s %s\"",
                                                            register_session ? "--register-session " : "",
+                                                           g_getenv ("GDM_WAYLAND_SESSION"),
                                                            command);
                         }
                 } else if (run_xsession_script) {
@@ -2965,8 +2966,9 @@ gdm_session_start_session (GdmSession *self,
                                                            register_session ? "--register-session " : "",
                                                            self->selected_program);
                         } else {
-                                program = g_strdup_printf (LIBEXECDIR "/gdm-wayland-session %s\"dbus-run-session -- %s\"",
+                                program = g_strdup_printf (LIBEXECDIR "/gdm-wayland-session %s\"dbus-run-session -- %s %s\"",
                                                            register_session ? "--register-session " : "",
+                                                           g_getenv ("GDM_WAYLAND_SESSION"),
                                                            self->selected_program);
                         }
                 } else {
ion>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=f0e048576f6831c30c3d3eba59a10fed06131514'>root</a>/<a href='/guix/log/gnu?id=f0e048576f6831c30c3d3eba59a10fed06131514'>gnu</a>/<a href='/guix/log/gnu/packages?id=f0e048576f6831c30c3d3eba59a10fed06131514'>packages</a>/<a href='/guix/log/gnu/packages/patches?id=f0e048576f6831c30c3d3eba59a10fed06131514'>patches</a>/<a href='/guix/log/gnu/packages/patches/ccextractor-fix-ocr.patch?id=f0e048576f6831c30c3d3eba59a10fed06131514'>ccextractor-fix-ocr.patch</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/patches/ccextractor-fix-ocr.patch?id=f0e048576f6831c30c3d3eba59a10fed06131514&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-03-17 10:40:02 -0400'>2023-03-17</span></td><td><a href='/guix/commit/gnu/packages/patches/ccextractor-fix-ocr.patch?id=2dc2722dc022974684c5f5add577d2241b0b996d'>gnu: ccextractor: Update to 0.94 and fix build.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/gstreamer.scm (ccextractor): Update to 0.94.
[source]: Apply patches.  Add FIXME comment.
[build-system]: Switch to gnu-build-system.
[arguments]: Delete #tests? argument.  Delete trailing #t and use gexps.
Adjust configure flags accordingly, removing WITH_SHARING (doesn't exist for
Autoconf) and adding '--without-rust'.  Override check phase.
[native-inputs]: Remove labels.  Remove python-wrapper and perl.
[propagated-inputs]: Remove labels.  Remove nanomsg and zlib.  Replace
leptonica with leptonica-1.80.  replace tesseract-ocr with tesseract-ocr-4.
* gnu/packages/patches/ccextractor-add-missing-header.patch: New file.
* gnu/packages/patches/ccextractor-autoconf-tesseract.patch: Likewise.
* gnu/packages/patches/ccextractor-fix-ocr.patch: Likewise.
* gnu/local.mk (dist_patch_DATA): Register them.
</span></span></td><td>Maxim Cournoyer</td></tr>