diff options
| -rw-r--r-- | gnu/installer/newt/ethernet.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/installer/newt/ethernet.scm b/gnu/installer/newt/ethernet.scm index 2cbbfddacd..2b02653777 100644 --- a/gnu/installer/newt/ethernet.scm +++ b/gnu/installer/newt/ethernet.scm @@ -54,7 +54,8 @@ connection is pending." (let* ((service-name (service-name service)) (form (draw-connecting-page service-name))) (connman-connect service) - (destroy-form-and-pop form))) + (destroy-form-and-pop form) + service)) (define (run-ethernet-page) (let ((services (ethernet-services))) |