Index: WS/WebService.cls.xml
===================================================================
diff -u -r3009 -r3060
--- WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 3009)
+++ WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 3060)
@@ -53,63 +53,5 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="OnPage">
-<Description><![CDATA[
-This method is used internally by Cach&eacute;. You should not make direct
-use of it within your applications. There is no guarantee made about either
-the behavior or future operation of this method.		]]></Description>
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	If $Data(%request.Data("WSDL"))!$Data(%request.Data("wsdl")) {
-		#; If it's a WSDL Request, just generate the WSDL for the client
-		Do ..GenerateWSDL()
-
-	} Else {
-		#; Create the web service instance
-		Set service=..%New()
-
-		#; Process as SOAP or HTTP page
-		Set tAction=$Get(%request.CgiEnvs("HTTP_SOAPACTION"))
-		If tAction'="" {
-			Set ClassName = ..%ClassName(1)
-			do ##class(WS.WebserviceLogger).LogStream(%request.Content,"IN",ClassName)
-			Do service.ProcessSOAP($$$URLDECODE(tAction),%request.Content)
-		} Else {
-			Do service.ProcessHTTP()
-		}
-	}
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="WriteSOAPMessage">
-<Description><![CDATA[
-Execute the Web Method represented by the descriptor class on
-the server.  If an error is detected, a ztrap "SOAP" will be issued with
-%objlasterror containing the error %Status.  If is the responsibilty of the
-caller of the proxy method to set an error trap and test for $ZE["&lt;ZSOAP&gt;".
-Note that if a SOAP fault is received, then the error is $$$SOAPFaultReceived.
-Write the SOAP message that corresponds to the specified class.]]></Description>
-<FormalSpec>body:%SOAP.Descriptor,tag:%String,isService:%Boolean</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	set IO = ##class(TECH.IO).%New()
-	do IO.Redirect()
-	set sc = ##super(body,tag,isService)
-	do IO.Reset()
-	set Stream = IO.GeefStream()
-	while 'Stream.AtEnd {
-		write Stream.Read()
-	}	
-	Set ClassName = ..%ClassName(1)
-	do ##class(WS.WebserviceLogger).LogStream(Stream,"OUT",ClassName)
-	quit sc
-]]></Implementation>
-</Method>
 </Class>
 </Export>