diff --git a/src/gui/client/search-frame.lisp b/src/gui/client/search-frame.lisp
index 354e715..aefb0b7 100644
--- a/src/gui/client/search-frame.lisp
+++ b/src/gui/client/search-frame.lisp
@@ -54,14 +54,15 @@
                 (declare (ignore e))
                 (loop for match in (matches frame) do
                   (gui:tag-delete gemtext-widget (gui:match-tag-name match)))
-                (let ((tags (gui:search-all-text gemtext-widget (gui:text (entry frame))
-                                                 :case-insensitive (gui:value case-sensitive-checkbox))))
+                (let ((tags (gui:search-all-text gemtext-widget
+                                                 (gui:text (entry frame))
+                                                 :case-insensitive
+                                                 (not (gui:value case-sensitive-checkbox)))))
                   (setf (matches frame) (nreverse tags)))
                 (loop for match in (matches frame) do
                   (gui:tag-configure gemtext-widget
                                      (gui:match-tag-name match)
-                                     :background (gui:cget gemtext-widget
-                                                           :highlightbackground)))))
+                                     :background (gui:cget gemtext-widget :highlightbackground)))))
     (setf (gui:command (button-next frame))
           (lambda ()
             (when (matches frame)