Still bugs in read-file-name completion on w32

[Lennart Borgman]

Eval this code and try to complete in a directory with only one file, 
but not matching the pattern (ie temp.tmp):

   (defcustom nxhtml-image-completion-pattern
     "\\.\\(?:png\\|jpg\\|jpeg\\|gif\\)$"
     "Pattern for matching image URLs in completion."
     :type 'regexp)

   (defun nxhtml-image-url-predicate(url)
     (setq nxhtml-predicate-error nil)
     (if (or (file-directory-p url)
             (string-match nxhtml-image-completion-pattern url))
         t
       (setq nxhtml-predicate-error "Does not match image file name 
pattern.")
       nil))

   (read-file-name "File: " nil "" nil "" 'nxhtml-image-url-predicate)

For me this completes to the file temp.tmp. This is on w32:
GNU Emacs 22.0.50.1 (i386-mingw-nt5.0.2195) of 2006-04-15

I do not know if this bug affects other platforms too, please test.