diff --git a/src/tests/normal-tests/metaobject-protocol.lsp b/src/tests/normal-tests/metaobject-protocol.lsp
index 53e77db55..dba0f8bb6 100644
--- a/src/tests/normal-tests/metaobject-protocol.lsp
+++ b/src/tests/normal-tests/metaobject-protocol.lsp
@@ -622,3 +622,18 @@ the metaclass")
        #'f (list (find-class 'c))))))
 
 
+;;; Bug #46
+;;;
+;;; Reported 2016-05-30
+;;;
+;;; Description: DEFGENERIC doesn't create methods on same pass as
+;;;  creating generics.
+
+(test mop.0021.ensure-generic
+  (is (progn (fmakunbound 'mop.0021.ensure-generic.fun)
+             (defun mop.0021.ensure-generic.fun () 'hi)
+             (with-temporary-file (input-file "
+(fmakunbound 'mop.0021.ensure-generic.fun)
+(defmethod mop.0021.ensure-generic.fun () (print 'bye))
+")
+               (compile-file input-file)))))