Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 7 Aug 2017 23:48:30 -0000 1.8
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 19 Nov 2017 12:34:05 -0000 1.9
@@ -175,7 +175,7 @@
if {[nsv_exists api_proc_doc $proc_index]} {
return "$method"
} else {
- if {[::xo::getObjectProperty $obj ${kind} $method] eq ""} {
+ if {[::xo::getObjectProperty $obj $kind $method] eq ""} {
return $methodC
} else {
return $method