Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r1332 -r1646
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1332)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1646)
@@ -46,8 +46,8 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ExceptionString = ##class(TECH.ExceptionHandler).Catch().ToString()
-	Set Result = $$$ERROR($$$GeneralError, ExceptionString)
+	#dim ExceptionString As %String = ##class(TECH.ExceptionHandler).Catch().ToString()
+	#dim Result As %Status = $$$ERROR($$$GeneralError, ExceptionString)
 	Quit Result
 ]]></Implementation>
 </Method>