Index: library/lib/doc-tools.tcl
===================================================================
diff -u -rf3cb5afe6aa1b6761b4a9909058f64ff7d64ab92 -re548a952433b4d26794f535995c9ed1ababe8807
--- library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision f3cb5afe6aa1b6761b4a9909058f64ff7d64ab92)
+++ library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision e548a952433b4d26794f535995c9ed1ababe8807)
@@ -1474,7 +1474,7 @@
 	lassign [:resolve_partof_entity $tag $name] nq_name partof_entity;
 
 	if {$partof_entity ne ""} {
-	  if {[$partof_entity info callable -application $tag] eq ""} {
+	  if {[$partof_entity info callable methods $tag] eq ""} {
 	    [InvalidTag new -message [subst {
 	      The tag '$tag' is not supported for the entity type
 	      '[namespace tail [$partof_entity info class]]'
@@ -1504,7 +1504,7 @@
       } else {
 	# 2) current (or context) entity has been resolved
 	# TODO: Should we explicitly disallow qualified names in parts?
-	if {[${:current_entity} info callable -application $tag] eq ""} {
+	if {[${:current_entity} info callable methods $tag] eq ""} {
 	  [InvalidTag new -message [subst {
 	    The tag '$tag' is not supported for the entity type
 	    '[namespace tail [${:current_entity} info class]]'