--- backquote-old.el	2013-07-01 00:36:28.319352290 +0200
+++ backquote.el	2013-07-01 00:37:51.550816668 +0200
@@ -161,6 +161,8 @@
       (backquote-delay-process s (1- level))))
    ((eq (car s) backquote-backquote-symbol)
       (backquote-delay-process s (1+ level)))
+   ((eq (car s) 'backquote)
+      (backquote-delay-process s (1+ level)))
    (t
     (let ((rest s)
 	  item firstlist list lists expression)
@@ -177,7 +179,8 @@
                   ;; unquote since this needs to go recursively through
                   ;; backquote-process.
                   (not (or (eq (car rest) backquote-unquote-symbol)
-                           (eq (car rest) backquote-backquote-symbol))))
+                           (eq (car rest) backquote-backquote-symbol)
+                           (eq (car rest) 'backquote))))
 	(setq item (backquote-process (car rest) level))
 	(cond
 	 ((= (car item) 2)