Index: xotcl/library/serialize/ScriptCreator.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -r78e82b3563a644f2df47320eacc693f1b788b03c
--- xotcl/library/serialize/ScriptCreator.xotcl	(.../ScriptCreator.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/serialize/ScriptCreator.xotcl	(.../ScriptCreator.xotcl)	(revision 78e82b3563a644f2df47320eacc693f1b788b03c)
@@ -1,4 +1,4 @@
-# $Id: ScriptCreator.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
+# $Id: ScriptCreator.xotcl,v 1.4 2006/02/18 22:17:33 neumann Exp $
 
 package provide xotcl::scriptCreation::scriptCreator 0.8
 package require XOTcl
@@ -41,12 +41,12 @@
 	set aCount 0
 	set bCount 0
 	for {set i 0} {$i < [string length $a]} {incr i} {
-	    if {[string index $a $i] == ":"} {
+	    if {[string index $a $i] eq ":"} {
 		incr aCount
 	    }
 	}
 	for {set i 0} {$i < [string length $b]} {incr i} {
-	    if {[string index $b $i] == ":"} {
+	    if {[string index $b $i] eq ":"} {
 		incr bCount
 	    }
 	}
@@ -200,7 +200,7 @@
 				my checkClass $name $c
 			    }
 			}
-			if {$sl != ""} {
+			if {$sl ne ""} {
 			    append script " -superclass \{$sl\}\n"
 			} else {
 			    append script "\n"