diff --git a/lisp/ob-latex.el b/lisp/ob-latex.el
index acb83228b..866ae1ba1 100644
--- a/lisp/ob-latex.el
+++ b/lisp/ob-latex.el
@@ -136,7 +136,7 @@ exporting the literal LaTeX source."
                  (regexp-quote (format "%S" (car pair)))
                  (if (stringp (cdr pair))
                      (cdr pair) (format "%S" (cdr pair)))
-                 body)))
+                 body t t)))
 	(org-babel--get-vars params))
   (let ((prologue (cdr (assq :prologue params)))
         (epilogue (cdr (assq :epilogue params))))
diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index 7791fe201..35df76fc9 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -142,7 +142,7 @@ blocks.")
 	       (replace-regexp-in-string
 		(concat "$" (regexp-quote name))
 		(if (stringp value) value (format "%S" value))
-		body))))
+		body t t))))
      vars)
     (concat
      (and prologue (concat prologue "\n"))
diff --git a/lisp/ob-org.el b/lisp/ob-org.el
index d4570816f..6944eb47c 100644
--- a/lisp/ob-org.el
+++ b/lisp/ob-org.el
@@ -51,7 +51,7 @@ $VAR instances are replaced by VAR values defined in PARAMS."
     (setq body (replace-regexp-in-string
 		(regexp-quote (format "$%s" (car var)))
 		(format "%s" (cdr var))
-		body nil 'literal)))
+		body 'fixedcase 'literal)))
   
   (let ((prologue (cdr (assq :prologue params)))
         (epilogue (cdr (assq :epilogue params))))
diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el
index 55c41828f..dc067a417 100644
--- a/lisp/ob-sql.el
+++ b/lisp/ob-sql.el
@@ -407,11 +407,11 @@ argument mechanism."
                                val (if sqlite
                                        nil
                                      '(:fmt (lambda (el) (if (stringp el)
-                                                             el
-                                                           (format "%S" el))))))))
+                                                        el
+                                                      (format "%S" el))))))))
                     data-file)
                 (if (stringp val) val (format "%S" val))))
-	    body)))
+	    body t t)))
    vars)
   body)