From d7fb759988e6c6493614d5edabafa08f4e99c7bc Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Thu, 24 Jul 2003 09:18:53 +0000
Subject: [PATCH] Assure at least one digit for each ID in regexp for cont-URL.

---
 scheme/httpd/surflets/surflet-handler.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index 380c20f..1192c73 100644
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@@ -542,9 +542,9 @@
 ;; URLs (= resume URLs). Resume URLs look like
 ;; http://localhost:8088/surflet/admin-handler.scm;k757033335;c1-684902143?return54=
 (define *resume-url-regexp* (rx (submatch (* (- printing ";"))) 
-				";k" (submatch (* digit)) ; Instance-ID
+				";k" (submatch (+ digit)) ; Instance-ID
 				";c" (+ digit)            ; Continuation Counter
-				"-" (submatch (* digit)))) ; Continuation-ID
+				"-" (submatch (+ digit)))) ; Continuation-ID
 
 ;; All arguments are numbers except PATH-STRING, which is a string.
 (define (make-resume-url path-string session-id continuation-counter continuation-id)