From a2d94ffc8eaebf8fec29e0e18d379e1482658db3 Mon Sep 17 00:00:00 2001
From: Dan Davison <davison@stats.ox.ac.uk>
Date: Tue, 23 Feb 2010 07:31:43 -0700
Subject: [PATCH] babel: prevent quoting of strings in shell variables

---
 contrib/babel/lisp/langs/org-babel-sh.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/contrib/babel/lisp/langs/org-babel-sh.el b/contrib/babel/lisp/langs/org-babel-sh.el
index 055b5641b..940b7d49f 100644
--- a/contrib/babel/lisp/langs/org-babel-sh.el
+++ b/contrib/babel/lisp/langs/org-babel-sh.el
@@ -93,10 +93,10 @@ specifying a var of the same value."
       (flet ((deep-string (el)
                           (if (listp el)
                               (mapcar #'deep-string el)
-                            (format "%S" el))))
-        (format "$(cat <<BABEL_TABLE\n%s\nBABEL_TABLE\n)"
+                           (org-babel-sh-var-to-sh el sep))))
+       (format "$(cat <<BABEL_TABLE\n%s\nBABEL_TABLE\n)"
                 (orgtbl-to-generic (deep-string var) (list :sep (or sep "\t")))))
-    (format "%S" var)))
+    (if (stringp var) (format "%s" var) (format "%S" var))))
 
 (defun org-babel-sh-table-or-results (results)
   "If the results look like a table, then convert them into an