Index: tests/protected.test
===================================================================
diff -u -r2493736d00766ffa6a8eb5b536c616e4e8da34e9 -rac96e6ce975fe5864b64dee9d66bc701a31e113b
--- tests/protected.test	(.../protected.test)	(revision 2493736d00766ffa6a8eb5b536c616e4e8da34e9)
+++ tests/protected.test	(.../protected.test)	(revision ac96e6ce975fe5864b64dee9d66bc701a31e113b)
@@ -330,6 +330,13 @@
     :create d1
   }
 
+  # check introspection and "-callprotection" filter
+  ? {lsort [C info methods]} "p2 p4"
+  ? {lsort [C info methods -callprotection all]} "p1 p2 p3 p4"
+  ? {lsort [C info methods -callprotection public]} "p2 p4"
+  ? {lsort [C info methods -callprotection protected]} ""
+  ? {lsort [C info methods -callprotection private]} "p1 p3"
+
   # called         shadowed 
   # C.p1  private  B.p1 private
   # C.p2  public   B.p2 private