diff --git a/scsh/glob.scm b/scsh/glob.scm
index 5cba035..900cb5b 100644
--- a/scsh/glob.scm
+++ b/scsh/glob.scm
@@ -2,6 +2,7 @@
 
 ;;; Copyright (c) 1994 by David Albertz (dalbertz@clark.lcs.mit.edu).
 ;;; Copyright (c) 1994 by Olin Shivers   (shivers@clark.lcs.mit.edu).
+;;; See file COPYING.
 
 ;;; This code is freely available for use by anyone for any purpose,
 ;;; so long as you don't charge money for it, remove this notice, or
@@ -104,7 +105,7 @@
 		 (res (list re-bos))
 		 (i 0))
 	  (if (= i pat-len)
-	      (re-seq (reverse (str-cons chars res)))
+	      (re-seq (reverse (cons re-eos (str-cons chars res))))
 
 	      (let ((c (string-ref pat i))
 		    (i (+ i 1)))