Index: TECH/Http/impl/HttpAPI.cls.xml
===================================================================
diff -u -r869 -r1286
--- TECH/Http/impl/HttpAPI.cls.xml	(.../HttpAPI.cls.xml)	(revision 869)
+++ TECH/Http/impl/HttpAPI.cls.xml	(.../HttpAPI.cls.xml)	(revision 1286)
@@ -3,6 +3,11 @@
 <Class name="TECH.Http.impl.HttpAPI">
 <Super>TECH.RegisteredObject,TECH.Http.HttpAPI</Super>
 
+<Property name="HttpRequest">
+<Type>%Net.HttpRequest</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefHttpPoster">
 <ReturnType>TECH.Http.Poster</ReturnType>
 <Implementation><![CDATA[
@@ -19,6 +24,19 @@
 	Quit HttpPoster
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatURI">
+<FormalSpec>URI:TECH.Net.URI</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If '$IsObject(..HttpRequest) {
+		Set ..HttpRequest = ##class(%Net.HttpRequest).%New()
+	}
+	Set ..HttpRequest.Server = URI.GeefHost()
+	#Dim HttpHeadGelukt As %Status = ..HttpRequest.Head( URI.GeefPathMetQueryEnFragment() )
+	Quit (('$$$ISERR(HttpHeadGelukt)) && (##class(TECH.Net.enu.HttpStatusCode).OK200() = ..HttpRequest.HttpResponse.StatusCode))
+]]></Implementation>
+</Method>
 </Class>