(byte-compile-lapcode): Fix up last change.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b30443e837..acca989388c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-08-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix up last change.
+
 2009-08-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * vc-git.el (vc-git-register): Use "git add" for directories.
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index f1561c0b279..01d1e270f36 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -856,7 +856,7 @@ otherwise pop it")
                (setcar (cdr bytes) (logand pc 255))
                (setcar bytes (lsh pc -8))
                ;; FIXME: Replace this by some workaround.
-               (if (> (car bytes) 255) (error "Bytecode overflow"))))))
+               (if (> (car bytes) 255) (error "Bytecode overflow"))))
         (setq patchlist (cdr patchlist))))
     (apply 'unibyte-string (nreverse bytes))))