diff --git a/src/manager.scm b/src/manager.scm
index 1d80606..c3faa55 100644
--- a/src/manager.scm
+++ b/src/manager.scm
@@ -390,7 +390,8 @@
 	  (send-message+wait internal-out-channel (list 'fit-client client))
 	  (send internal-out-channel
 		(list 'update-client-name client (client-name dpy client)))
-	  (map-window (wm:dpy wm) new-window))
+	  (map-window (wm:dpy wm) new-window)
+	  (set-input-focus dpy new-window (revert-to parent) current-time))
 	#f)))
 
 (define (handle-client-window-xevent wm exit client xevent)