url broken on CVS trunk?

[Nick Roberts]

Tom Tromey's Emacs Lisp Package Archive has the following piece of code that
needs to be evaluated:

    (let ((buffer (url-retrieve-synchronously
                 "http://tromey.com/elpa/package-install.el";)))
    (save-excursion
      (set-buffer buffer)
      (goto-char (point-min))
      (re-search-forward "^$" nil 'move)
      (eval-region (point) (point-max))
      (kill-buffer (current-buffer))))

This works fine on EMACS_22_BASE, but with Emacs on the CVS trunk it gives:


Debugger entered--Lisp error: (wrong-type-argument char-or-string-p 
cl-struct-url)
  url-scheme-get-property(cl-struct-url loader)
  url-retrieve-internal("http://tromey.com/elpa/package-install.el";...

Is something in url broken?

-- 
Nick                                           http://www.inet.net.nz/~nickrob