Index: xotcl/library/actiweb/Agent.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/actiweb/Agent.xotcl	(.../Agent.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/actiweb/Agent.xotcl	(.../Agent.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-# $Id: Agent.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
+# $Id: Agent.xotcl,v 1.4 2006/09/14 06:36:02 neumann Exp $
 
 package provide xotcl::actiweb::agent 0.8
 
@@ -136,7 +136,7 @@
 	foreach {n v} $args {lappend cmd $n $v}
 	set t ::[string trimleft [::eval $cmd] :]
 	#puts stderr "After SyncRequest t=$t [$s responseCode]"
-	if {[$s responseCode] == "OK"} {
+	if {[$s responseCode] eq "OK"} {
 	    set content [$s content]
 	    # kill the sink
 	    $s endReq $t