diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index 9e6dbd1ec..02ab1bd92 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -1235,7 +1235,7 @@ holding contextual information."
   "Transcode a SPECIAL-BLOCK element from Org to Texinfo.
 CONTENTS holds the contents of the block.  INFO is a plist used
 as a communication channel."
-  (let ((type (org-element-property :type)))
+  (let ((type (org-element-property :type special-block)))
     (format "@%s\n%s@end %s" type contents type)))
 
 ;;;; Src Block