Index: library/lib/nx-pp.tcl
===================================================================
diff -u -rf2790ef881b84eefb21f4f49c50895a9ba4eade5 -r4691a8f3d8ad3626258e921b778d4ffb8aa54a15
--- library/lib/nx-pp.tcl	(.../nx-pp.tcl)	(revision f2790ef881b84eefb21f4f49c50895a9ba4eade5)
+++ library/lib/nx-pp.tcl	(.../nx-pp.tcl)	(revision 4691a8f3d8ad3626258e921b778d4ffb8aa54a15)
@@ -51,11 +51,11 @@
     :method new_state {new lastChar firstChar} {
       # Switch from one state to another state
       if {[$new eval {info exists :escape}]} {
-	$new prevState [nx::self]
+	$new configure -prevState [nx::self]
 	append :text $lastChar
 	return [$new]
       } else {
-	$new prevState [default]
+	$new configure -prevState [default]
 	append :text $lastChar
 	:flush
 	return [$new start $firstChar]
@@ -98,7 +98,7 @@
       public protected private
       method alias property forward delete require
       my next new self current dispatch objectparameter defaultmethod
-      create init new destroy alloc dealloc recreate unknown move configure
+      create init new destroy alloc dealloc recreate unknown move cget configure
       class object superclass mixin filter guard metaclass
       methods lookup
       ::nx::Class nx::Class ::xotcl::Class xotcl::Class Class