diff --git a/collects/browser/external.ss b/collects/browser/external.ss
index e12ada318a..384c15aa95 100644
--- a/collects/browser/external.ss
+++ b/collects/browser/external.ss
@@ -82,8 +82,7 @@
 
   (define unix-browser-names
     (map (lambda (s)
-           (let ([l (string->list (symbol->string s))])
-             (list->string (cons (char-upcase (car l)) (cdr l)))))
+           (string-titlecase (regexp-replace* #rx"-" (symbol->string s) " ")))
          raw:unix-browser-list))
 
   ;; : (U str #f) -> (U symbol #f)