perform-search expects a single string, at least for now

svn: r10101
2008-06-03 00:07:37 +00:00 · 2008-06-03 00:07:37 +00:00 · 00043aaaae
commit 00043aaaae
parent 364c048008
1 changed files with 1 additions and 1 deletions
--- a/collects/drscheme/private/help-desk.ss
+++ b/collects/drscheme/private/help-desk.ss
@ -73,4 +73,4 @@
 (define help-desk
  (case-lambda
    [() (send-main-page)]
-    [(key) (perform-search (list key))]))
+    [(key) (perform-search key)]))