diff --git a/scheme/misc/annotate.scm b/scheme/misc/annotate.scm
index 5c83cba..f14152b 100644
--- a/scheme/misc/annotate.scm
+++ b/scheme/misc/annotate.scm
@@ -7,7 +7,7 @@
 
 (define annotate-procedure
   (lap annotate-procedure ()
-       0 (check-nargs= 2)
+       0 (protocol 2)
        2 (make-env 2)
        4 (local0 2)
        6 (stored-object-ref closure 0)
@@ -24,7 +24,7 @@
 
 (define procedure-annotation
   (lap procedure-anotation ()
-       0 (check-nargs= 1)
+       0 (protocol 1)
        2 (make-env 1)
        4 (literal '2)
        6 (push)