scsh 0.5.1: file-match fails if pattern contains /

[Gary Houston <ghouston@actrix.gen.nz>]

--- filemtch.scm~       Sat Oct 21 12:07:14 1995
+++ filemtch.scm        Thu Aug 28 07:13:23 1997
@@ -88,6 +88,6 @@
       (let lp ((i (string-length pat))
               (ans '()))
        (cond ((rindex pat #\/ i) =>
-              (lambda (j) (lp (cons (substring pat (+ j 1) i) ans) j)))
+              (lambda (j) (lp j (cons (substring pat (+ j 1) i) ans))))
              (else
               (cons (substring pat 0 i) ans))))))