diff --git a/collects/help/help.ss b/collects/help/help.ss
index 4008939b..24a3c722 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -1,18 +1,15 @@
 #lang scheme/base
 
 (require "search.ss"
-         net/sendurl ; browser/external
+         net/sendurl
          setup/dirs
-         mzlib/cmdline)
+         scheme/cmdline)
 
-(define search-terms '())
-(command-line "Help Desk"
-              (current-command-line-arguments)
-              (args search-term (set! search-terms search-term)))
-              
-(cond
-  [(null? search-terms)
+(command-line
+ #:args search-term
+ (cond
+  [(null? search-term)
    (let ([dest-path (build-path (find-doc-dir) "start" "index.html")])
      (send-url (format "file://~a" (path->string dest-path))))]
   [else
-   (generate-search-results search-terms)])
+   (generate-search-results search-term)]))
diff --git a/collects/help/search.ss b/collects/help/search.ss
index 8dc5c002..39f8ff44 100644
--- a/collects/help/search.ss
+++ b/collects/help/search.ss
@@ -7,7 +7,7 @@
          scribble/basic
          scribble/manual
          (prefix-in scheme: scribble/scheme)
-         net/sendurl ; browser/external
+         net/sendurl
          mzlib/contract)
 
 (provide/contract