PR 9545

svn: r10476
2008-06-27 12:11:39 +00:00 · 2008-06-27 12:11:39 +00:00 · 659ce64b11
commit 659ce64b11
parent 61b77ec68a
1 changed files with 1 additions and 1 deletions
--- a/collects/planet/util.ss
+++ b/collects/planet/util.ss
@ -665,7 +665,7 @@
 ;; determines if the given string is something that (version) could've produced
 (define (core-version? s)
  (and (string? s)
-       (regexp-match #rx"^[0-9]+(\\.[0-9]*)?$" s)))
+       (string->mz-version s)))

 ;; checkinfo: syntax
 ;; given an info.ss function, a failure function, and a bunch of fields to check,