diff --git a/examples/X-extras/screenshot/screenshot.lisp b/examples/X-extras/screenshot/screenshot.lisp
index 22e6227..7acdbe8 100644
--- a/examples/X-extras/screenshot/screenshot.lisp
+++ b/examples/X-extras/screenshot/screenshot.lisp
@@ -16,7 +16,7 @@
 (defun countdown (seconds)
   (cond ((minusp seconds)
          ;; screenshot
-         (|save| (|grab| (|screen| (|desktop.QApplication|)))
+         (|save| (|grabWindow| (|primaryScreen.QGuiApplication|) 0)
                  "screenshot.png")
          (qquit))
         ((zerop seconds)