Index: TECH/ResultSet.cls.xml
===================================================================
diff -u -r1571 -r1760
--- TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 1571)
+++ TECH/ResultSet.cls.xml	(.../ResultSet.cls.xml)	(revision 1760)
@@ -62,7 +62,9 @@
 	#dim Next As %Integer
 	set Next = ##super(.Status)
 	if $$$ISERR(Status) {
-		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New($$ParseStatus^vhLib(Status))
+		do ..Close()
+		
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New($$ParseStatus^vhLib(Status))		
 		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	quit Next