Index: library/lib/doc-tools.tcl
===================================================================
diff -u -r5ef627a40a9fdc2d811d194b679cc45bcd369cff -rb452496286d0a401837c373d2bdddd4ee37c1fa3
--- library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision 5ef627a40a9fdc2d811d194b679cc45bcd369cff)
+++ library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision b452496286d0a401837c373d2bdddd4ee37c1fa3)
@@ -486,7 +486,7 @@
       return $p
     }
     :public method delete {domain prop value} {
-      next [list $domain $prop [:require_part $prop $value]]
+      next [list $domain $prop [:require_part $domain $prop $value]]
     }
   }