From 202dcd2414ee608f22539cc3c546e071271a2f8a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Dec 2005 20:14:16 +0000
Subject: [PATCH] fix minor default

svn: r1623
---
 collects/dynext/filename-version.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/dynext/filename-version.ss b/collects/dynext/filename-version.ss
index c10d11aa5f..97a115e1a3 100644
--- a/collects/dynext/filename-version.ss
+++ b/collects/dynext/filename-version.ss
@@ -7,7 +7,7 @@
     (cond [(regexp-match #rx"^([0-9]+(?:p[0-9])?)(?:[.]([0-9]+))?$"
                          (version))
            => (lambda (m)
-                (let ([major (cadr m)] [minor (or (caddr m) #"")])
+                (let ([major (cadr m)] [minor (or (caddr m) "")])
                   (string-append major "_"
                                  (make-string (- (string-length "xxxxxxx")
                                                  1