Bug fix in vegas export

vegas.mm

@@ -651,10 +651,10 @@ exporter[stream_OutputStream, {content__Rule}, intsize_Integer: 4] := Module[{
     (* delta to array with OU bins *)
     delta = Join[{1}, ConstantArray[delta, nrbins], {1}];
 
-    quant[[i ;; nrq nrbins + 2 ;; nrq]] = delta iteration histogram[[;; , 2]];
+    quant[[i ;; nrq (nrbins + 2) ;; nrq]] = delta iteration histogram[[;; , 2]];
 
     If[And @@ EqualTo[0] /@ histogram[[;; , 3]],
-      quant[[nrq (nrbins + 2) + i ;; ;; nrq]] = quant[[i ;; nrq nrbins + 2 ;; nrq]]^2/iteration
+      quant[[nrq (nrbins + 2) + i ;; ;; nrq]] = quant[[i ;; nrq (nrbins + 2) ;; nrq]]^2/iteration
     (*else*),
       quant[[nrq (nrbins + 2) + i ;; ;; nrq]] = delta^2 iteration (
         histogram[[;; , 3]]^2 (-1 + iteration) + histogram[[;; , 2]]^2