diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp
index 9fefd46..d52851b 100644
--- a/src/gui/client/main-window.lisp
+++ b/src/gui/client/main-window.lisp
@@ -1603,6 +1603,14 @@ local file paths."
               (declare (ignore e))
               (funcall (reload-iri-clsr main-window)))
             :exclusive t)
+  (gui:bind target
+            #$<Control-MouseWheel>$
+            (lambda (e)
+              (let ((clockwise (< (gui:event-delta e) 0)))
+                (if clockwise
+                    (scale-gemtext main-window 0.1)
+                    (scale-gemtext main-window -0.1))))
+            :exclusive t)
   (gui:bind target
             #$<Control-4>$
             (lambda (e)