diff -Nru maxima-5.37.2/debian/changelog maxima-5.37.2/debian/changelog
--- maxima-5.37.2/debian/changelog	2015-10-28 22:14:30.000000000 +1100
+++ maxima-5.37.2/debian/changelog	2016-12-23 03:12:53.000000000 +1100
@@ -1,3 +1,11 @@
+maxima (5.37.2-8ubuntu0.16.10.1) yakkety; urgency=medium
+
+  * Cherry-pick from -9: (LP: #1602941)
+    - Bug fix: "maxima do not load the draw package.", thanks to Renato
+      Alvarez Nodarse (Closes: #803251).  rework sys:*load-pathname* patch
+
+ -- Stefano Rivera <stefanor@ubuntu.com>  Thu, 22 Dec 2016 08:12:53 -0800
+
 maxima (5.37.2-8) unstable; urgency=medium
 
   * Bug fix: "FTBFS on mips64el", thanks to James Cowgill (Closes:
diff -Nru maxima-5.37.2/debian/patches/*load-pathname*-in-proper-place-1 maxima-5.37.2/debian/patches/*load-pathname*-in-proper-place-1
--- maxima-5.37.2/debian/patches/*load-pathname*-in-proper-place-1	1970-01-01 10:00:00.000000000 +1000
+++ maxima-5.37.2/debian/patches/*load-pathname*-in-proper-place-1	2016-12-23 03:12:53.000000000 +1100
@@ -0,0 +1,278 @@
+Description: <short summary of the patch>
+ TODO: Put a short summary on the line above and replace this paragraph
+ with a longer explanation of this change. Complete the meta-information
+ with other relevant fields (see below for details). To make it easier, the
+ information below has been extracted from the changelog. Adjust it or drop
+ it.
+ .
+ maxima (5.37.2-8) unstable; urgency=medium
+ .
+   * Bug fix: "FTBFS on mips64el", thanks to James Cowgill (Closes:
+     #775728). Rebuild against latest gcl
+Author: Camm Maguire <camm@debian.org>
+Bug-Debian: https://bugs.debian.org/775728
+
+---
+The information above should follow the Patch Tagging Guidelines, please
+checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
+are templates for supplementary fields that you might want to add:
+
+Origin: <vendor|upstream|other>, <url of original patch>
+Bug: <url in upstream bugtracker>
+Bug-Debian: https://bugs.debian.org/<bugnumber>
+Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
+Forwarded: <no|not-needed|url proving that it has been forwarded>
+Reviewed-By: <name and email of someone who approved the patch>
+Last-Update: <YYYY-MM-DD>
+
+--- maxima-5.37.2.orig/doc/info/build_index.pl
++++ maxima-5.37.2/doc/info/build_index.pl
+@@ -251,7 +251,7 @@ print ")))\n";
+ 
+ #        Construct hashtables from the lists given above.
+ 
+-print "(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))\n";
++print "(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))\n";
+ 
+ # (2.3)  Do we have any items or sections?
+ #
+--- maxima-5.37.2.orig/doc/info/de.utf8/maxima-index.lisp
++++ maxima-5.37.2/doc/info/de.utf8/maxima-index.lisp
+@@ -2673,4 +2673,4 @@
+ ("Zufallszahlen" . ("maxima.info-2" 176979 2673))
+ ("Zuweisungsoperatoren" . ("maxima.info-1" 291827 9886))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/doc/info/de/maxima-index.lisp
++++ maxima-5.37.2/doc/info/de/maxima-index.lisp
+@@ -3119,4 +3119,4 @@
+ ("Zufallszahlen" . ("maxima.info-2" 175691 2676))
+ ("Zuweisungsoperatoren" . ("maxima.info-1" 289910 9871))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/doc/info/es.utf8/maxima-index.lisp
++++ maxima-5.37.2/doc/info/es.utf8/maxima-index.lisp
+@@ -2683,4 +2683,4 @@
+ ("Share" . ("maxima.info-5" 92734 592))
+ ("Visualización usando VTK" . ("maxima.info-7" 168587 16606))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/doc/info/es/maxima-index.lisp
++++ maxima-5.37.2/doc/info/es/maxima-index.lisp
+@@ -3129,4 +3129,4 @@
+ ("Share" . ("maxima.info-4" 283571 593))
+ ("Visualización usando VTK" . ("maxima.info-7" 7940 16632))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/doc/info/pt.utf8/maxima-index.lisp
++++ maxima-5.37.2/doc/info/pt.utf8/maxima-index.lisp
+@@ -1888,4 +1888,4 @@
+ ("Substantivos e Verbos" . ("maxima.info-1" 144085 2474))
+ ("Visualização usando VTK" . ("maxima.info-5" 201854 353))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/doc/info/pt/maxima-index.lisp
++++ maxima-5.37.2/doc/info/pt/maxima-index.lisp
+@@ -2238,4 +2238,4 @@
+ ("Substantivos e Verbos" . ("maxima.info-1" 141644 2474))
+ ("Visualização usando VTK" . ("maxima.info-5" 142641 353))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/doc/info/pt_BR.utf8/maxima-index.lisp
++++ maxima-5.37.2/doc/info/pt_BR.utf8/maxima-index.lisp
+@@ -2035,4 +2035,4 @@
+ ("Sintaxe" . ("maxima.info-1" 156957 4247))
+ ("Substantivos e Verbos" . ("maxima.info-1" 148614 2483))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/doc/info/pt_BR/maxima-index.lisp
++++ maxima-5.37.2/doc/info/pt_BR/maxima-index.lisp
+@@ -2379,4 +2379,4 @@
+ ("Sintaxe" . ("maxima.info-1" 154214 4238))
+ ("Substantivos e Verbos" . ("maxima.info-1" 146036 2483))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/share/cobyla/load-bf-cobyla.lisp
++++ maxima-5.37.2/share/cobyla/load-bf-cobyla.lisp
+@@ -3,8 +3,6 @@
+ #+ecl
+ ($load "lisp-utils/defsystem.lisp")
+ 
+-(load (merge-pathnames (make-pathname :name "cobyla" :type "system")
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(load (merge-pathnames (make-pathname :name "cobyla" :type "system") *load-pathname*))
+ 
+ (mk:oos "bf-cobyla-interface" :compile)
+--- maxima-5.37.2.orig/share/cobyla/load-cobyla.lisp
++++ maxima-5.37.2/share/cobyla/load-cobyla.lisp
+@@ -3,8 +3,6 @@
+ #+ecl
+ ($load "lisp-utils/defsystem.lisp")
+ 
+-(load (merge-pathnames (make-pathname :name "cobyla" :type "system")
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(load (merge-pathnames (make-pathname :name "cobyla" :type "system") *load-pathname*))
+ 
+ (mk:oos "cobyla-interface" :compile)
+--- maxima-5.37.2.orig/share/colnew/load-colnew.lisp
++++ maxima-5.37.2/share/colnew/load-colnew.lisp
+@@ -1,9 +1,5 @@
+ #+nil
+-(format t "colnew.system = ~S~%" (merge-pathnames (make-pathname :name "colnew" :type "system")
+-						  #-gcl *load-pathname*
+-						  #+gcl sys:*load-pathname*))
+-(load (merge-pathnames (make-pathname :name "colnew" :type "system")
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(format t "colnew.system = ~S~%" (merge-pathnames (make-pathname :name "colnew" :type "system") *load-pathname*))
++(load (merge-pathnames (make-pathname :name "colnew" :type "system") *load-pathname*))
+ 
+-(mk:oos "colnew-if" :compile)
+\ No newline at end of file
++(mk:oos "colnew-if" :compile)
+--- maxima-5.37.2.orig/share/contrib/gentran/gentran.lisp
++++ maxima-5.37.2/share/contrib/gentran/gentran.lisp
+@@ -19,9 +19,7 @@
+ 
+ (defvar local-obj-dir)
+ 
+-(load (merge-pathnames "convmac.lisp"
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(load (merge-pathnames "convmac.lisp" *load-pathname*))
+ 
+ (putprop 'procforttem "templt" 'autoload)
+ (putprop 'procrattem "templt" 'autoload)
+@@ -36,6 +34,4 @@
+ 
+ (dolist (fname '("init" "lspfor" "lspc" "lsprat" "templt" "global" "intrfc"
+ 		 "pre" "output" "vaxlsp" "segmnt"))
+-  (load (merge-pathnames fname
+-			 #-gcl *load-pathname*
+-			 #+gcl sys:*load-pathname*)))
++  (load (merge-pathnames fname *load-pathname*)))
+--- maxima-5.37.2.orig/share/contrib/integration/integration-index.lisp
++++ maxima-5.37.2/share/contrib/integration/integration-index.lisp
+@@ -15,4 +15,4 @@
+ ("Definitions for abs_integrate" . ("abs_integrate.info" 3639 7412))
+ ("Introduction to abs_integrate" . ("abs_integrate.info" 490 2999))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/share/contrib/maxima-odesolve/maxima-odesolve-index.lisp
++++ maxima-5.37.2/share/contrib/maxima-odesolve/maxima-odesolve-index.lisp
+@@ -9,4 +9,4 @@
+ ("Definitions for kovacicODE" . ("kovacicODE.info" 654 1493))
+ ("Introduction to kovacicODE" . ("kovacicODE.info" 450 63))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/share/draw/draw-index.lisp
++++ maxima-5.37.2/share/draw/draw-index.lisp
+@@ -8,4 +8,4 @@
+ (section-pairs '(
+ ; CONTENT: (<NODE NAME> . (<FILENAME> <BYTE OFFSET> <LENGTH IN CHARACTERS>))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/share/draw/draw.lisp
++++ maxima-5.37.2/share/draw/draw.lisp
+@@ -4,8 +4,6 @@
+ 
+ #+ecl ($load "lisp-utils/defsystem.lisp")
+ 
+-(load (merge-pathnames (make-pathname :name "draw" :type "system")
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(load (merge-pathnames (make-pathname :name "draw" :type "system") *load-pathname*))
+ 
+ (mk:oos "draw" :compile)
+--- maxima-5.37.2.orig/share/graphs/load-graphs.lisp
++++ maxima-5.37.2/share/graphs/load-graphs.lisp
+@@ -2,8 +2,6 @@
+ 
+ #+ecl ($load "lisp-utils/defsystem.lisp")
+ 
+-(load (merge-pathnames (make-pathname :name "graphs" :type "system")
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(load (merge-pathnames (make-pathname :name "graphs" :type "system") *load-pathname*))
+ 
+ (mk:oos "graphs" :compile)
+--- maxima-5.37.2.orig/share/lapack/lapack/lapack-lisp.system
++++ maxima-5.37.2/share/lapack/lapack/lapack-lisp.system
+@@ -7,17 +7,14 @@
+     :binary-extension "lisp")
+ 
+ (mk:defsystem "lapack-package"
+-  :source-pathname (directory-namestring #-gcl *load-pathname*
+-					 #+gcl sys:*load-pathname*)
++  :source-pathname (directory-namestring *load-pathname*)
+   :depends-on ("blas-package")
+   :components
+   ((:file "lapack-package")))
+ 
+ (mk:defsystem "lapack-lisp"
+-  :source-pathname (directory-namestring #-gcl *load-pathname*
+-					 #+gcl sys:*load-pathname*)
+-  :binary-pathname (make-pathname :directory (pathname-directory #-gcl *load-pathname*
+-								 #+gcl sys:*load-pathname*))
++  :source-pathname (directory-namestring *load-pathname*)
++  :binary-pathname (make-pathname :directory (pathname-directory *load-pathname*))
+   :depends-on ("lapack-package" "blas-lisp")
+   :components
+   (
+--- maxima-5.37.2.orig/share/lapack/load-lapack.lisp
++++ maxima-5.37.2/share/lapack/load-lapack.lisp
+@@ -9,8 +9,6 @@
+ 
+ #+ecl ($load "lisp-utils/defsystem.lisp")
+ 
+-(load (merge-pathnames (make-pathname :name "lapack" :type "system")
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(load (merge-pathnames (make-pathname :name "lapack" :type "system") *load-pathname*))
+ 
+ (mk:oos "lapack-interface" :compile)
+--- maxima-5.37.2.orig/share/logic/logic-index.lisp
++++ maxima-5.37.2/share/logic/logic-index.lisp
+@@ -25,4 +25,4 @@
+ ("Definitions for logic" . ("logic.info" 2434 10656))
+ ("Introduction to logic" . ("logic.info" 386 1922))
+ )))
+-(load-info-hashtables (list (pathname-device #-gcl *load-pathname* #+gcl sys:*load-pathname*) (pathname-directory #-gcl *load-pathname* #+gcl sys:*load-pathname*)) deffn-defvr-pairs section-pairs))
++(load-info-hashtables (list (pathname-device *load-pathname*) (pathname-directory *load-pathname*)) deffn-defvr-pairs section-pairs))
+--- maxima-5.37.2.orig/share/minpack/load-minpack.lisp
++++ maxima-5.37.2/share/minpack/load-minpack.lisp
+@@ -2,8 +2,6 @@
+ 
+ #+ecl ($load "lisp-utils/defsystem.lisp")
+ 
+-(load (merge-pathnames (make-pathname :name "minpack" :type "system")
+-		       #-gcl *load-pathname*
+-		       #+gcl sys:*load-pathname*))
++(load (merge-pathnames (make-pathname :name "minpack" :type "system") *load-pathname*))
+ 
+ (mk:oos "minpack-interface" :compile)
+--- maxima-5.37.2.orig/src/init-cl.lisp
++++ maxima-5.37.2/src/init-cl.lisp
+@@ -681,8 +681,7 @@ When one changes, the other does too."
+   "Return a pathname string such that subdirs is a subdirectory of maxima_objdir"
+   (apply #'combine-path *maxima-objdir* subdirs))
+ 
+-;; The directory part of *load-pathname*.  GCL doesn't seem to have a
+-;; usable *LOAD-PATHNAME*, but it does have SYS:*LOAD-PATHNAME*.
++;; The directory part of *load-pathname*.
+ (defun maxima-load-pathname-directory ()
+   "Return the directory part of *load-pathname*."
+   (let ((path *load-pathname*))
diff -Nru maxima-5.37.2/debian/patches/series maxima-5.37.2/debian/patches/series
--- maxima-5.37.2/debian/patches/series	2015-10-10 07:07:09.000000000 +1100
+++ maxima-5.37.2/debian/patches/series	2016-12-23 03:12:53.000000000 +1100
@@ -5,4 +5,4 @@
 system-texi2html-3
 system-texi2html-4
 better-find-info
-*load-pathname*-in-proper-place
+*load-pathname*-in-proper-place-1