diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt
index 9b4893ba..9e449874 100644
--- a/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/private/panel.rkt
@@ -862,7 +862,7 @@
 ;; has been shrunk one size, larger sizes for that child will not be
 ;; considered, and shrinking always proceeds from the left to the right.
 (define (candidate-sizes lolon)
-  (define all-boxes (map (λ (x) (box (sort x >=))) lolon))
+  (define all-boxes (map (λ (x) (box (sort x >))) lolon))
   (define answer '())
   (define (record-current)
     (set! answer (cons (map car (map unbox all-boxes)) answer)))
diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
index 436f7a4b..76122a31 100644
--- a/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
+++ b/pkgs/gui-pkgs/gui-lib/framework/private/text.rkt
@@ -1311,7 +1311,7 @@
         (hash-map search-bubble-table
                   (λ (x true) 
                     (list x (if replace-mode? 'light-search-color 'normal-search-color)))))
-       string<=?
+       string<?
        #:key (λ (x) (format "~s" (car x)))))
     
     
@@ -4039,7 +4039,7 @@ designates the character that triggers autocompletion
                                   (map sym->mpi (exported-index-desc-from-libs desc))))
                    (hash-set! ht (symbol->string name) #t)))))))
        (xref-index xref))
-      (sort (hash-map ht (λ (x y) x)) string<=?))))
+      (sort (hash-map ht (λ (x y) x)) string<?))))
 
 ;; ============================================================
 ;; auto complete example code