(disassemble-1): Reference bytecode string as unibyte.

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index d07581e86d4465db9750460f80bd1abca646a38d..8b010c45e4ca47e7563958c063c9c800b1c8a501 100644 (file)
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -171,7 +171,7 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
              constvec (car (cdr (cdr obj))))   ;constant vector
       ;; If it is lazy-loaded, load it now
       (fetch-bytecode obj)
-      (setq bytes (aref obj 1)
+      (setq bytes (string-as-unibyte (aref obj 1))
            constvec (aref obj 2)))
     (let ((lap (byte-decompile-bytecode bytes constvec))
          op arg opname pc-value)