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 -N -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" {