diff --git a/ftpd.scm b/ftpd.scm
index 0d308b3..228bb6e 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -807,7 +807,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.9 $")
+(define *ftpd-version* "$Revision: 1.10 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))
@@ -856,9 +856,3 @@
    ((null? maybe-arg) default-exp)
    ((null? (cdr maybe-arg)) (car maybe-arg))
    (else (error "too many optional arguments" maybe-arg))))
-
-; Stuff from Big Scheme
-; We can't open BIG-SCHEME because we use virgin SIGNALS.  Sigh.
-
-(define any? (structure-ref big-scheme any?))
-(define partition-list (structure-ref big-scheme partition-list))
diff --git a/modules.scm b/modules.scm
index 022be78..3d8dd61 100644
--- a/modules.scm
+++ b/modules.scm
@@ -427,6 +427,7 @@
 	threads
 	fluids
 	string-lib
+	big-util
 	defrec-package
 	crlf-io strings ls)
   (access big-scheme)