From 0000000000000000000000000000000000000000 Mon Sep 17 00:00:00 2001
From: Camm Maguire <camm@debian.org>
Date: Mar, 03 2026 16:40:27 +0000
Subject: [PATCH] <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.

---
The information above should follow the Patch Tagging Guidelines, please
checkout https://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: (upstream|backport|vendor|other), (<patch-url>|commit:<commit-id>)
Bug: <upstream-bugtracker-url>
Bug-<Vendor>: <vendor-bugtracker-url>
Forwarded: (no|not-needed|<patch-forwarded-url>)
Applied-Upstream: <version>, (<commit-url>|commit:<commid-id>)
Reviewed-By: <name and email of someone who approved/reviewed the patch>

--- gcl-2.6.14.orig/git.tag
+++ gcl-2.6.14/git.tag
@@ -1 +1 @@
-"Version_2_6_15pre19"
+"Version_2_6_15pre20"
--- gcl-2.6.14.orig/lsp/gcl_make_pathname.lsp
+++ gcl-2.6.14/lsp/gcl_make_pathname.lsp
@@ -25,7 +25,7 @@
 						  (string-concatenate "(" (substitute #\^ #\! (subseq x 0 2)) (subseq x 2) ")")))
 					  (cons #v"\\*" (lambda (x) #.(ads "([^/.]*)")))
 					  (cons #v"\\?" (lambda (x) #.(ads "([^/.])")))
-					  (cons #v"\\." (lambda (x) "\\."))))
+					  (cons #v"[+|.^$()]" (lambda (x) (string-concatenate "\\" x)))))
 
 (defconstant +physical-pathname-defaults+ '(("" "" "")
 					    #+winnt("" "([A-Za-z]:)?" ":") #-winnt("" "()" "")
