X-Git-Url: https://git.distorted.org.uk/~mdw/ca/blobdiff_plain/88f85e06ccb74ae8082af5d592947c3420d76eb5..71669a0ab999914152a97ee81edc837f8c1a3277:/lib/func.tcl

diff --git a/lib/func.tcl b/lib/func.tcl
index 1f73008..a3b58dc 100644
--- a/lib/func.tcl
+++ b/lib/func.tcl
@@ -326,7 +326,7 @@ proc next-matching-date* {pat refvar i} {
       {^\d+$} {
 	## A numeric literal.  If it's within bounds then set it; otherwise
 	## we'll have to start from the beginning.
-	if {$p < $n || $p > $max} { return step }
+	if {$p < $nn || $p > $max} { return step }
 	set nn $p
       }