diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 1f2a67c28..025985d2a 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -261,7 +261,7 @@ Returns a list
 	  (setq info (org-babel-parse-src-block-match))
 	  (setq indent (car (last info)))
 	  (setq info (butlast info))
-	  (while (and (forward-line -1)
+	  (while (and (= 0 (forward-line -1))
 		      (looking-at org-babel-multi-line-header-regexp))
 	    (setf (nth 2 info)
 		  (org-babel-merge-params