diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 4b7de5f3b..06a2a88cd 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -691,6 +691,9 @@ a list with the following pattern:
     (`(:file-desc) result)
     (`(:file-desc . ,(and (pred stringp) val)) val)))
 
+(defvar *this*) ; Dynamically bound in `org-babel-execute-src-block'
+                ; and `org-babel-read'
+
 ;;;###autoload
 (defun org-babel-execute-src-block (&optional arg info params)
   "Execute the current source code block.