Index: library/lib/doc-tools.tcl
===================================================================
diff -u -r99168631019313a366696cb78384abaf48d488e7 -r8534d945b2e3a053018e880336a59a6be68a9d4b
--- library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision 99168631019313a366696cb78384abaf48d488e7)
+++ library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision 8534d945b2e3a053018e880336a59a6be68a9d4b)
@@ -1581,7 +1581,7 @@
       set line [:map $line unescape]
       set line [split [string trimleft $line]]
       set tag [lindex $line 0]
-      if {[:info callable -application $tag] eq ""} {
+      if {[:info callable methods -application $tag] eq ""} {
 	[InvalidTag new -message [subst {
 	  The tag '$tag' is not supported for the entity type
 	  '[namespace tail [:info class]]'
@@ -1670,7 +1670,7 @@
 	  set args [lassign $line tag name]
 	  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 -application $tag] eq ""} {
 	      [InvalidTag new -message [subst {
 		The tag '$tag' is not supported for the entity type
 		'[namespace tail [$partof_entity info class]]'