Index: oop/goops/dispatch.scm
--- oop/goops/dispatch.scm
+++ oop/goops/dispatch.scm
@@ -211,6 +211,8 @@
 (define (memoize-method! gf args exp)
   (if (not (slot-ref gf 'used-by))
       (slot-set! gf 'used-by '()))
+  (if (null? (slot-ref gf 'methods))
+      (no-method gf args))
   (let ((applicable ((if (eq? gf compute-applicable-methods)
 			 %compute-applicable-methods
 			 compute-applicable-methods)