X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/ca/blobdiff_plain/00e8593b9d1fbacc38fe78077a1e6fc41606704f..0f9d9bad47d069fb05f3f1d937c42125a14c95ea:/lib/func.tcl

diff --git a/lib/func.tcl b/lib/func.tcl
index 1f73008..9e03b5b 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
       }
 
@@ -425,7 +425,7 @@ proc sync-profiles {} {
 	  UPDATE profile SET
 		  extensions = $d(extensions),
 		  issue_time = $d(issue-time),
-		  start_skew = $(start-skew),
+		  start_skew = $d(start-skew),
 		  expire_interval = $d(expire-interval),
 		  tombstone = 0
 	  WHERE label = $p;