Simple function works in ver. 21.3 but not in 22.0

["B. T. Raven" <ecinmn@alcisp.com>]

Does any of you know why this should not work in version 22.0 (w32)?:

(defun unfill-paragraph () ;; bound to C-x M-q
   "Do the opposite of fill-paragraph; stuff all lines in the current 
paragraph into a single long line."
   (interactive)
   (let ((fill-column 90002000))
     (fill-paragraph nil)))

C-h k C-x M-q does show that the function is bound to that key sequence, with:

(global-set-key "\C-x\M-q" 'unfill-paragraph)

The only other settings that I can think might affect this (under 
custom-set-variables) are:

  '(sentence-end "[.?!][]\"')}]*\\($\\| $\\|	\\| \\)[ 	
]*")
  '(sentence-end-double-space nil)

It looks like fill-paragraph is ignoring the fill-column value in the let 
form. Any ideas?

Ed.