From 078f9bb4c3d9372bd7e32f8d074c4be95a91fef3 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 28 Jan 2008 09:54:40 +0000
Subject: [PATCH] better titles

svn: r8444
---
 collects/browser/external.ss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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)