Index: library/lib/pp.tcl
===================================================================
diff -u -ra24e1f836c3126d0a0e9467bde3a9fa8da901711 -ra13fd7c36e88fae335636d8f9216036efb38e790
--- library/lib/pp.tcl	(.../pp.tcl)	(revision a24e1f836c3126d0a0e9467bde3a9fa8da901711)
+++ library/lib/pp.tcl	(.../pp.tcl)	(revision a13fd7c36e88fae335636d8f9216036efb38e790)
@@ -95,9 +95,9 @@
       scan seek set socket source split stdin stderr stdout string subst switch 
       tell trace unset uplevel update upvar variable vwait while
       package
-      public protected 
+      public protected private
       method alias property forward delete
-      my next new self current
+      my next new self current dispatch
       create init new destroy alloc dealloc
       class superclass mixin filter guard
       methods lookup