Ticket #867: patch867

Index: coops.scm
===================================================================
--- coops.scm   (revision 26776)
+++ coops.scm   (working copy)
@@ -372,21 +372,23 @@
                                 (lambda (%before-method)
                                   (apply %before-method %args))
                                 %applicable-before-methods)
-                               (let ((%res
+                               (call-with-values
+                                    (lambda ()
                                       (apply
                                        (let
                                            ((m (car %applicable-primary-methods)))
                                          (set! %applicable-primary-methods
-                                           (cdr %applicable-primary-methods))
+                                               (cdr %applicable-primary-methods))
                                          m)
                                        %next-method?
                                        %call-next-method
-                                       %args)))
-                                 (for-each
-                                  (lambda (%after-method)
-                                    (apply %after-method %args))
-                                  %applicable-after-methods)
-                                 %res))))))
+                                       %args))
+                                  (lambda (#!rest %res)
+                                    (for-each
+                                     (lambda (%after-method)
+                                       (apply %after-method %args))
+                                     %applicable-after-methods)
+                                    (apply values %res))))))))
                   (%call-next-method))))))
         (cond-expand
           (no-cache