Index: tests/protected.test
===================================================================
diff -u -r5ce68a42506fcc981cea2431afa1b09b476e667a -r62de5715e53f2e8cb8a7f11c62010c33d2723f35
--- tests/protected.test	(.../protected.test)	(revision 5ce68a42506fcc981cea2431afa1b09b476e667a)
+++ tests/protected.test	(.../protected.test)	(revision 62de5715e53f2e8cb8a7f11c62010c33d2723f35)
@@ -699,22 +699,29 @@
     :create c1
   }
 
+  # call properties directly
+
   ? {c1 a} a1
   ? {c1 b} {::c1: unable to dispatch method 'b'}
   ? {c1 c} {::c1: unable to dispatch method 'c'}
 
+  # call properties via method
+
   ? {c1 foo a} a1
   ? {c1 foo b} b1
   ? {c1 foo c} {::c1: unable to dispatch method 'c'}
 
+  # call properties via method via "-local" dispatch
+
   ? {c1 bar a} a1
   ? {c1 bar b} b1
   ? {c1 bar c} {c1}
 
-  #? {lsort [c1 info vars]} "____C.c ____C.d a b"
   ? {lsort [c1 info vars]} "__private a b"
   ? {c1 eval {lsort [array names :__private]}} "::C,c ::C,d"
 
+  # private property with value constraint
+
   ? {c1 bar d} {1}
   ? {c1 baz d 2} {2}
   ? {c1 bar d} {2}