--- a/trunk/t/03-server.t
+++ b/trunk/t/03-server.t
@@ -1,6 +1,4 @@
 #!/bin/env perl
-
-use strict;
 
 BEGIN {
     unless(grep /blib/, @INC) {
@@ -15,7 +13,6 @@
 BEGIN { plan tests => 32 }
 
 use SOAP::Lite;
-use SOAP::Server;
 
 my($a, $s, $r, $serialized, $deserialized);
 
@@ -167,7 +164,7 @@
     sub schema { $SOAP::Constants::DEFAULT_XML_SCHEMA }
 1;';
 
-# TESTS 1-10
+# TEST 1-4
 HANDLER: {
     print "Server handler test(s)...\n";
 
@@ -224,7 +221,9 @@
         SOAP::Server->dispatch_to('\protocols', 'Calculator')
     ) { # end for
         my $result = SOAP::Deserializer->deserialize($server->handle($tests{'XML only'}));
-        ok(($result->result || 0) == 7);
+        my $value = $result->result;
+use Data::Dumper;		print Dumper $value;
+		ok($value + 0 == 7);
     }
 }