From b1614ca55796ee5d96f2d92ceb3ce00755adf888 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 25 Feb 2001 05:14:30 +0000
Subject: [PATCH] ...

original commit: 6ba27412f2fca393f93cc643faba32a4d48571c1
---
 collects/framework/private/version.ss | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/collects/framework/private/version.ss b/collects/framework/private/version.ss
index b828fe71..c5cb5b78 100644
--- a/collects/framework/private/version.ss
+++ b/collects/framework/private/version.ss
@@ -1,14 +1,15 @@
 (module version mzscheme
   (require (lib "unitsig.ss")
 	   "sig"
-	   (lib "mred-sig.ss" "mred"))
+	   (lib "mred-sig.ss" "mred")
+	   (lib "string.ss")
+	   (lib "list.ss"))
 
   (provide version@)
 
   (define version@
     (unit/sig framework:version^
-      (import [mzlib:string : mzlib:string^]
-	      [mzlib:function : mzlib:function^])
+      (import)
 
       (rename [-version version])
 
@@ -16,7 +17,7 @@
 
       (define -version
 	(lambda ()
-	  (mzlib:function:foldr
+	  (foldr
 	   (lambda (entry sofar)
 	     (match entry
 	       [(sep num) (string-append sofar sep num)]))
@@ -25,6 +26,5 @@
 
       (define add-spec
 	(lambda (sep num)
-	  (set! specs (cons (list (mzlib:string:expr->string sep)
-				  (mzlib:string:expr->string num))
+	  (set! specs (cons (list (expr->string sep) (expr->string num))
 			    specs)))))))