Index: lisp/emacs-lisp/eldoc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/eldoc.el,v
retrieving revision 1.47
diff -d -u -r1.47 eldoc.el
--- lisp/emacs-lisp/eldoc.el	19 Aug 2007 03:04:13 -0000	1.47
+++ lisp/emacs-lisp/eldoc.el	22 Aug 2007 20:53:25 -0000
@@ -471,11 +476,12 @@
 (defun eldoc-function-argstring-format (argstring)
   "Apply `eldoc-argument-case' to each word in argstring.
 The words \"&rest\", \"&optional\" are returned unchanged."
-  (mapconcat (lambda (s)
-	       (if (member s '("&optional" "&rest"))
-		   s
-		 (funcall eldoc-argument-case s)))
-	     (split-string argstring) " "))
+  (concat "(" (mapconcat (lambda (s)
+		       (if (member s '("&optional" "&rest"))
+			   s
+			 (funcall eldoc-argument-case s)))
+		     (split-string (substring argstring 1 -1)) " ")
+	  ")"))
 
 ;; When point is in a sexp, the function args are not reprinted in the echo
 ;; area after every possible interactive command because some of them print