diff --git a/lisp/org-babel-tangle.el b/lisp/org-babel-tangle.el
index 20de1a3b8..3d69500f9 100644
--- a/lisp/org-babel-tangle.el
+++ b/lisp/org-babel-tangle.el
@@ -187,8 +187,7 @@ the source-code block which holds BODY."
         (insert body) (goto-char (point-min))
         (funcall (intern (concat lang "-mode")))
         (setq index (point))
-        (while (and (re-search-forward "<<\\(.+\\)>>" nil t)
-                    (save-match-data (comment-beginning)))
+        (while (and (re-search-forward "<<\\(.+\\)>>" nil t))
           (save-match-data (setf source-name (match-string 1)))
           ;; add interval to new-body
           (goto-char (match-end 0))