Index: library/lib/doc-tools.tcl =================================================================== diff -u -rcfd13f351499bb4b1b1debd55f209419edf1af14 -rda29026a405568a2d35c7349664e500acb92f4b8 --- library/lib/doc-tools.tcl (.../doc-tools.tcl) (revision cfd13f351499bb4b1b1debd55f209419edf1af14) +++ library/lib/doc-tools.tcl (.../doc-tools.tcl) (revision da29026a405568a2d35c7349664e500acb92f4b8) @@ -1605,7 +1605,7 @@ # might fail because they contain substitution characters # ($,[]); see nx.tcl # ... - catch {set preprocessed [subst $preprocessed]} msg + catch {set preprocessed [subst $preprocessed]} msg return $preprocessed } @@ -1761,7 +1761,8 @@ :method listing {{-inline true} script} { #return [expr {$inline?"$script":"
$script
"}] - return [expr {$inline?"$script":[nx::pp render [string trimright $script " \r\n"]]}] + set listing [expr {$inline?"$script":[string trimright [nx::pp render [string trimright $script " \r\n"]] "\n"]}] + return $listing } :method link=tclcmd {cmd} { Index: library/nx/nx.nxd =================================================================== diff -u -r77df24420621ac25993e4ca25f27e67bcd7da905 -rda29026a405568a2d35c7349664e500acb92f4b8 --- library/nx/nx.nxd (.../nx.nxd) (revision 77df24420621ac25993e4ca25f27e67bcd7da905) +++ library/nx/nx.nxd (.../nx.nxd) (revision da29026a405568a2d35c7349664e500acb92f4b8) @@ -118,7 +118,6 @@ # ::nx::Class create AClass # ::nx::Class AnotherClass; # This fails: "Method 'AnotherClass' unknown for ::nx::Class." # ''' -# # Note that this method is also invoked internally when executing # <<@class.method {Class new}>>. #