Index: xotcl/apps/comm/get-regression.xotcl
===================================================================
diff -u -r78e82b3563a644f2df47320eacc693f1b788b03c -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/apps/comm/get-regression.xotcl	(.../get-regression.xotcl)	(revision 78e82b3563a644f2df47320eacc693f1b788b03c)
+++ xotcl/apps/comm/get-regression.xotcl	(.../get-regression.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -8,7 +8,7 @@
 
 proc assert {f r} {
   set got [eval $f]
-  if {[string compare $got $r]} {
+  if {$got ne $r } {
     puts stderr "assertion failed: \[$f\] == $r (got $got)" 
     quit
   } else {