From 659ce64b11f29367bc3a1249b9f9f1c7cbb40b06 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 27 Jun 2008 12:11:39 +0000
Subject: [PATCH] PR 9545

svn: r10476
---
 collects/planet/util.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/planet/util.ss b/collects/planet/util.ss
index a8e5eb7d2c..575af22d70 100644
--- 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,