diff --git a/emacs-framebuffer.el b/emacs-framebuffer.el
index ce9334e..e339a4f 100644
--- a/emacs-framebuffer.el
+++ b/emacs-framebuffer.el
@@ -25,7 +25,7 @@
 ;;; (require 'emacs-framebuffer)
 ;;; (framebuffer-install)
 
-(require 'cl)
+(require 'cl-lib)
 
 (defcustom framebuffer-w3mimgdisplay-program nil
   "Specify the path to w3mimgdisplay program."
@@ -201,6 +201,9 @@
       (framebuffer-file-exists-p "/usr/lib/w3m/w3mimgdisplay") ;; debian10
       "w3mimgdisplay"))
 
+(make-variable-buffer-local
+ (defvar framebuffer-image-mode-current-page))
+
 (defun framebuffer-draw (x y w h sx sy sw sh file)
   (setq file (framebuffer-cache-remote file))
   (let ((format (framebuffer-file-format file)))
@@ -465,8 +468,6 @@
  (defvar framebuffer-image-mode-image-size))
 (make-variable-buffer-local
  (defvar framebuffer-image-mode-npages))
-(make-variable-buffer-local
- (defvar framebuffer-image-mode-current-page))
 (make-variable-buffer-local
  (defvar framebuffer-image-mode-scale))
 (make-variable-buffer-local
@@ -663,7 +664,7 @@
     (integer
      (let* ((m (mod sec 3600))
 	    (s (mod m 60)))
-       (format "%d:%02d:%02d" (floor position 3600) (floor (- m s) 60) s)))))
+       (format "%d:%02d:%02d" (floor sec 3600) (floor (- m s) 60) s)))))
 
 (defun framebuffer-fbmpv (filename &optional position)
   (suspend-emacs