Index: xotcl/library/registry/Registry.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/registry/Registry.xotcl	(.../Registry.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/registry/Registry.xotcl	(.../Registry.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -53,7 +53,7 @@
 	    set success 1
 	    foreach {att value} $args {
 		set t [[self]::tripleVisitor::db queryPredicateOnSubject $att [my set services($s)]]
-		if {$t == "" || [$t object] != $value} {
+		if {$t eq "" || [$t object] != $value} {
 		    set success 0
 		    break
 		}