From cfcf493c2903ecdfc1b77d2695add34fc64a7a23 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Sun, 27 Feb 2011 14:29:01 -0700
Subject: [PATCH] ob: If escaped return value doesn't parse cleanly, then
 return it literally.

* lisp/ob.el (org-babel-script-escape): If script escaped value
  doesn't parse cleanly, then return it literally.
---
 lisp/ob.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ob.el b/lisp/ob.el
index 18cae37a2..36440c29e 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -1875,7 +1875,7 @@ block but are passed literally to the \"example-block\"."
 (defun org-babel-script-escape (str)
   "Safely convert tables into elisp lists."
   (let (in-single in-double out)
-    (org-babel-read
+    ((lambda (escaped) (condition-case nil (org-babel-read escaped) (error escaped)))
      (if (and (stringp str)
 	      (> (length str) 2)
 	      (string-equal "[" (substring str 0 1))