Index: library/lib/doc-tools.tcl
===================================================================
diff -u -rc217b55f7a8da19973a49665570c25b62c468509 -rf60d445f73acb4b434f41c990c0469b3252c44c5
--- library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision c217b55f7a8da19973a49665570c25b62c468509)
+++ library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision f60d445f73acb4b434f41c990c0469b3252c44c5)
@@ -24,7 +24,9 @@
 # @version 0.1
  
 package provide nx::doc 0.1
+
 package require nx
+package require nx::pp
 
 namespace eval ::nx::doc {
   namespace import -force ::nx::*
@@ -1753,7 +1755,8 @@
       }
        
       :method listing {{-inline true} script} {
-	return [expr {$inline?"<code>$script</code>":"<pre>$script</pre>"}]
+	#return [expr {$inline?"<code>$script</code>":"<pre>$script</pre>"}]
+	return [expr {$inline?"<code>$script</code>":[nx::pp render $script]}]
       }
       
       :method link {tag names} {
@@ -2329,7 +2332,7 @@
 		      [::nsf::configure objectsystem] eq ""} {
 		set rootclass ::nx::doc::_%&obj
 		set rootmclass ::nx::doc::_%&cls
-		::nsf::createobjectsystem ::nx::doc::_%&obj ::nx::doc::_%&cls
+		::nsf::createobjectsystem $rootclass $rootmclass
 	      } else {
 		lassign {*}[::nsf::configure objectsystem] rootclass rootmclass
 	      }