--- ClientSide.tcl.orig	2016-02-09 11:45:58.954740804 +0100
+++ ClientSide.tcl	2016-02-09 11:47:01.999734959 +0100
@@ -2088,7 +2088,7 @@
     ::WS::Utils::SetOption suppressNS {}
     set inTransform [dict get $serviceInfo inTransform]
     if {![string equal $inTransform {}]} {
-        set query [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
+        set xml [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
     }
 
     ::log::log debug "Leaving ::WS::Client::buildCallquery with {$xml}"
