Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v diff -u -r1.72.2.13 -r1.72.2.14 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 26 Mar 2014 18:10:36 -0000 1.72.2.13 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 10 Jun 2014 15:27:32 -0000 1.72.2.14 @@ -866,7 +866,11 @@ "parameter" { if {"::xotcl::Object" in [$o info precedence]} {return [$o info parameter]} set result "" - foreach p [$o info configure parameters] {lappend result [$o info parameter name $p]} + foreach p [$o info lookup parameters configure] { + set n [nsf::parameter::info name $p] + if {[string match __* $n]} continue + lappend result $n + } return $result } "isclass" {