more restrictive elisp eval of header arguments

* lisp/ob-core.el (org-babel-read): More restrictive elisp eval of
  header arguments.

lisp/ob-core.el

@@ -2514,9 +2514,8 @@ appropriate."
   (if (and (stringp cell) (not (equal cell "")))
       (or (org-babel-number-p cell)
           (if (and (not inhibit-lisp-eval)
-		   (member (substring cell 0 1) '("(" "'" "`" "[" "*"))
-		   (or (not (equal (substring cell 0 1) "*"))
-		       (equal (substring cell (- (length cell) 1)) "*")))
+		   (or (member (substring cell 0 1) '("(" "'" "`" "["))
+		       (string= cell "*this*")))
               (eval (read cell))
             (if (string= (substring cell 0 1) "\"")
 		(read cell)