Index: xotcl/library/lib/metadataAnalyzer.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/lib/metadataAnalyzer.xotcl	(.../metadataAnalyzer.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/lib/metadataAnalyzer.xotcl	(.../metadataAnalyzer.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -294,7 +294,7 @@
 	#puts stderr "+++Method $type $name $argList $doc"
 	set procClass ProcToken
 	set objCl ObjToken
-	if {$type == "instproc"} {
+	if {$type eq "instproc"} {
 	    set procCl InstprocToken
 	    set objCl ClassToken
 	}
@@ -307,7 +307,7 @@
 	foreach o [my set objList] {
 	    if {[$o set name] == $obj} {
 		set objFound 1
-		if {$type == "instproc" && ![$o istype ClassToken]} {
+		if {$type eq "instproc" && ![$o istype ClassToken]} {
 		    $o class ClassToken
 		}
 		break
@@ -347,7 +347,7 @@
 	set la [llength $args]
 
 	# evaluate -superclass argument
-	if {($la == 3 || $la == 2) && [lindex $args 0] == "-superclass"} {
+	if {($la == 3 || $la == 2) && [lindex $args 0] eq "-superclass"} {
 	    set heritage [$t set heritage [lindex $args 1]]
 	    foreach h $heritage {
 		if {[lsearch $h $knownMetaclasses] != -1} {
@@ -389,7 +389,7 @@
 	#puts "$args"
 	if {[llength $args] > 2} {
 	    set type [lindex $args 1]
-	    if {$type == "provide" || $type == "require"} {
+	    if {$type eq "provide" || $type eq "require"} {
 		set t [PackageToken create [my autoname ::xotcl::@::t]]
 		my lappend packageList $t
 		$t set name [lindex $args 2]
@@ -411,9 +411,9 @@
 	if {[llength $packageList] > 0} {
 	    append c "PACKAGES:"
 	    foreach t $packageList {
-		if {[$t type] == "provide"} {
+		if {[$t type] eq "provide"} {
 		    append c "  Package provided: [$t name] [$t version]\n"
-		} elseif {[$t type] == "require"} {
+		} elseif {[$t type] eq "require"} {
 		    append c "  Package required: [$t name] [$t version]\n"
 		}
 	    }
@@ -457,10 +457,10 @@
 
 	if {[llength $args] > 1} {
 	    set abstract 0
-	    if {[lindex $args 1] == "abstract"} {
+	    if {[lindex $args 1] eq "abstract"} {
 		if {[llength $args] > 2} {
 		    set p [lindex $args 2]
-		    if {$p == "proc" || $p == "instproc"} {
+		    if {$p eq "proc" || $p eq "instproc"} {
 			set args [lreplace $args 1 1]
 			set abstract 1
 		    }