Index: xotcl/library/lib/wafecompat.tcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/lib/wafecompat.tcl	(.../wafecompat.tcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/lib/wafecompat.tcl	(.../wafecompat.tcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-# $Id: wafecompat.tcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+# $Id: wafecompat.tcl,v 1.2 2006/09/14 06:36:02 neumann Exp $
 package provide xotcl::wafecompat 0.9
 
 set WAFELIB        /usr/lib/X11/wafe/
@@ -8,7 +8,7 @@
 proc requireModules modules {
   global MODULE_PATH 
   foreach {cmd module} $modules {
-    if {[string compare {} [info command $cmd]]} continue
+    if {{} ne [info command $cmd] } continue
     if {[regexp {([A-Za-z1-9]+)Gen} $module _ n] ||
 	[regexp {lib([a-z]+)} $module _ n] ||
 	[regexp {^(.+)[.]so} $module _ n]