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.38.1-3) unstable; urgency=medium
 .
   * Build-dep against latest gcl
Author: Camm Maguire <camm@debian.org>

---
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: 2016-10-13

--- maxima-5.38.1.orig/lisp-utils/defsystem.lisp
+++ maxima-5.38.1/lisp-utils/defsystem.lisp
@@ -1818,7 +1818,6 @@ s/^[^M]*IRIX Execution Environment 1, *[
 ;;;       "[root.subdir]BAZ"
 ;;;       "[root.][subdir]BAZ"
 ;;; Use #+:vaxlisp for VAXLisp 3.0, #+(and vms dec common vax) for v2.2
-
 #-scl
 (defun new-append-directories (absolute-dir relative-dir)
   ;; Version of append-directories for CLtL2-compliant lisps. In particular,
@@ -1873,7 +1872,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
 
     (when (and abs-name (not (null-string abs-name))) ; was abs-name
       (cond ((and (null abs-directory) (null abs-keyword))
-	     #-(or :lucid TI) (setf abs-keyword :relative)
+	     #-(or :lucid TI) (setf abs-keyword (car (pathname-directory "./")))
 	     (setf abs-directory (list abs-name)))
 	    (t
 	     (setf abs-directory (append abs-directory (list abs-name))))))
@@ -1906,6 +1905,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
 		    #+(or :gcl :sbcl :MCL :clisp :cmu) :type
 		    #+(or :gcl :sbcl :MCL :clisp :cmu) rel-type
 		    ))))
+;(trace new-append-directories)
 
 #-scl
 (defun directory-to-list (directory)
@@ -1928,6 +1928,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
 		(split-string directory :item #\/))))
 	(t
 	 (coerce directory 'list))))
+;(trace directory-to-list)
 
 
 (defparameter *append-dirs-tests*
