Index: library/lib/pp.tcl
===================================================================
diff -u -r6fe7208cd9d9a64258121bb144d2e1e94ca85d1c -r3df933477f01d26d32220be5a1c87bfc0c5b7685
--- library/lib/pp.tcl	(.../pp.tcl)	(revision 6fe7208cd9d9a64258121bb144d2e1e94ca85d1c)
+++ library/lib/pp.tcl	(.../pp.tcl)	(revision 3df933477f01d26d32220be5a1c87bfc0c5b7685)
@@ -97,7 +97,7 @@
       package
       public protected class-object
       method attribute forward 
-      my next new self
+      my next new self current
       create init new destroy alloc dealloc
       class superclass mixin
       ::nx::Class nx::Class ::xotcl::Class xotcl::Class Class