diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor
index 148e16bd33..5dbc0d17a1 100644
--- a/core/generic/standard/standard.factor
+++ b/core/generic/standard/standard.factor
@@ -13,7 +13,13 @@ GENERIC: dispatch# ( word -- n )
 M: generic dispatch#
     "combination" word-prop dispatch# ;
 
-M: quotation engine>quot ;
+GENERIC: method-declaration ( class generic -- quot )
+
+M: generic method-declaration
+    "combination" word-prop method-declaration ;
+
+M: quotation engine>quot
+    assumed get generic get method-declaration prepend ;
 
 ERROR: no-method object generic ;
 
@@ -116,6 +122,9 @@ M: standard-combination perform-combination
 
 M: standard-combination dispatch# #>> ;
 
+M: standard-combination method-declaration
+    dispatch# object <array> swap prefix [ declare ] curry [ ] like ;
+
 M: standard-combination next-method-quot*
     [
         single-next-method-quot
@@ -142,6 +151,8 @@ PREDICATE: hook-generic < generic
 
 M: hook-combination dispatch# drop 0 ;
 
+M: hook-combination method-declaration 2drop [ ] ;
+
 M: hook-generic extra-values drop 1 ;
 
 M: hook-generic effective-method