2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21c19c8b95b..13bc6595658 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,9 +8,12 @@
 
 2009-03-13  D. Goel  <deego3@gmail.com>
 
+
         * ibuf-ext.el: 
         When calling (multiple-value-bind/setq .. ls)
         ls -> (values-list ls)  throughout. 
+
+        * progmodes/flymake.el (flymake-float-time): Ditto.
         
         * progmodes/ebrowse.el: Ditto.
 
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 20fd68aa959..549bf4abe63 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -79,7 +79,7 @@
       'float-time
     (if (featurep 'xemacs)
         (lambda ()
-          (multiple-value-bind (s0 s1 s2) (current-time)
+          (multiple-value-bind (s0 s1 s2) (values-list (current-time))
             (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
 
 (defalias 'flymake-replace-regexp-in-string