(calcFunc-collect): Return constant polynomial when appropriate.

lisp/ChangeLog

+2008-11-03  Vincent Belaïche  <vincent.b.1@hotmail.fr>
+
+	* calc/calc-alg.el (calcFunc-collect): Return constant polynomial
+	when appropriate.
+
 2008-11-02  Martin Rudalics  <rudalics@gmx.at>
 	* window.el (save-selected-window-norecord): New macro

lisp/calc/calc-alg.el

@@ -1600,7 +1600,7 @@
     (if (cdr p)
 	(math-normalize   ; fix selection bug
 	 (math-build-polynomial-expr p base))
-      expr)))
+      (car p))))
 
 ;;; If expr is of the form "a + bx + cx^2 + ...", return the list (a b c ...),
 ;;; else return nil if not in polynomial form.  If "loose" (math-is-poly-loose),