org-babel: store noweb-expanded code body in 'info' data structure

contrib/babel/lisp/org-babel.el

@@ -176,8 +176,9 @@ the header arguments specified at the source code block."
   (let* ((info (or info (org-babel-get-src-block-info)))
          (lang (first info))
 	 (params (setf (third info) (org-babel-merge-params (third info) params)))
-         (body (if (assoc :noweb params)
-                   (org-babel-expand-noweb-references info) (second info)))
+         (body (setf (second info)
+		     (if (assoc :noweb params)
+			 (org-babel-expand-noweb-references info) (second info))))
          (processed-params (org-babel-process-params params))
          (result-params (third processed-params))
          (result-type (fourth processed-params))