Interactive ucs-insert fails in HEAD

[Sascha Wilde]

emacs -Q -nw
M-x toggle-debug-on-error RET
C-x 8 RET sm TAB

results in:
Debugger entered--Lisp error: (wrong-type-argument symbolp 89000.0)
  signal(wrong-type-argument (symbolp 89000.0))
  completion--some(#[(style) " address@hidden
$\207" [style completion-styles-alist string table pred point] 5] (basic 
partial-completion emacs22))
  completion-try-completion("sm" (lambda (&rest --cl-rest--) (apply #[... 
"r\305 \306!\203\307!\202p)q\210\310   \nJ!\f$)\207" [win action 
G33900 string pred minibuffer-selected-window window-live-p window-buffer 
complete-with-action] 5] (quote --fun--) --cl-rest--)) nil 2)
  completion--do-completion()
  minibuffer-complete()
  call-interactively(minibuffer-complete nil nil)
  completing-read("Unicode (name or hex): " (lambda (&rest --cl-rest--) (apply 
#[... "r\305 \306!\203\307!\202p)q\210\310        \nJ!\f$)\207" [win 
action G33900 string pred minibuffer-selected-window window-live-p 
window-buffer complete-with-action] 5] (quote --fun--) --cl-rest--)))
  read-char-by-name("Unicode (name or hex): ")
  (list (read-char-by-name "Unicode (name or hex): ") (prefix-numeric-value 
current-prefix-arg) t)
  call-interactively(ucs-insert nil nil)

Actually the "sm" completion is just an arbitrary example, any use of
`C-x 8 RET' I tried fails with (wrong-type-argument symbolp 89000.0)...

cheers
sascha
-- 
Sascha Wilde : "Lies, was ich meine, nicht, was ich schreibe."
             : (Urs Traenkner in de.alt.admin)