Index: tests/interceptor-slot.test
===================================================================
diff -u -N -rc4997e0189bb712287aa53d12bb3e332acfb781d -r3f398b58b5e8342bf3bed0e325e29b8c811ef7e2
--- tests/interceptor-slot.test	(.../interceptor-slot.test)	(revision c4997e0189bb712287aa53d12bb3e332acfb781d)
+++ tests/interceptor-slot.test	(.../interceptor-slot.test)	(revision 3f398b58b5e8342bf3bed0e325e29b8c811ef7e2)
@@ -154,7 +154,7 @@
 Test parameter count 3
 Test case "filter-and-creation" {
   Class create Foo {
-    :public method myfilter {args} {
+    :method myfilter {args} {
       set i [::incr ::count]
       set s [self]
       set m [current calledmethod]
@@ -204,6 +204,8 @@
   ? {ob2 bar2} {::ob2: unable to dispatch method 'bar2'}
   ? {ob2 baz} {}
 
+  # create with filter
+  ? {Foo create ob3 -filter myfilter} ::ob3
 }