Index: vhLib/Query.mac.rou
===================================================================
diff -u -r600 -r1819
--- vhLib/Query.mac.rou	(.../Query.mac.rou)	(revision 600)
+++ vhLib/Query.mac.rou	(.../Query.mac.rou)	(revision 1819)
@@ -45,6 +45,8 @@
 	 do Message.WriteLine("Status : "_$$ParseStatus^vhLib(Status))	 
 	 do Message.WriteLine($$GetStackToString^vhLib())
 	 Do ##class(vhLib.Logger).%New("vhLib.Query").ErrorMail("Execute",Message)
+	 new Exception set Exception =  ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Can not execute query '"_Query_"'", Status)
+	 Do ##class(TECH.ExceptionHandler).Throw(Exception)
  }
  quit qHandler