diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index e63bde89f..33260397a 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -570,7 +570,7 @@ non-nil, return the full association list to be used by
 	     (buffer-substring
 	      (max (condition-case nil
 		       (save-excursion
-			 (org-back-to-heading t) ; Sets match data
+			 (org-back-to-heading t)
 			 (re-search-forward org-outline-regexp))
 		     (error (point-min)))
 		   (save-excursion
diff --git a/testing/lisp/test-ob-tangle.el b/testing/lisp/test-ob-tangle.el
index 6fbc471cd..9f861006a 100644
--- a/testing/lisp/test-ob-tangle.el
+++ b/testing/lisp/test-ob-tangle.el
@@ -100,7 +100,7 @@ echo 1
         (delete-file "test-ob-tangle.sh"))))))
 
 (ert-deftest ob-tangle/comment-org ()
-  "Test :commends org."
+  "Test :comments org."
   (should
    (string-match
     (regexp-quote ";; Function heading")