Index: xotcl/library/patterns/Singleton.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/patterns/Singleton.xotcl	(.../Singleton.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/patterns/Singleton.xotcl	(.../Singleton.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-# $Id: Singleton.xotcl,v 1.4 2005/09/09 21:09:01 neumann Exp $
+# $Id: Singleton.xotcl,v 1.5 2006/09/14 06:36:02 neumann Exp $
 
 package provide xotcl::pattern::singleton 0.8
 package require XOTcl
@@ -68,7 +68,7 @@
 	# first
 	Class instproc getInstance {} {
 	    foreach sc [my info superclass] {
-		if {[$sc info class] == "::Singleton"} {
+		if {[$sc info class] eq "::Singleton"} {
 		    return [$sc getInstance]
 		} else {
 		    return ""