diff --git a/lassik/shell-quote.sld b/lassik/shell-quote.sld
index 8199ebf..8ed489f 100644
--- a/lassik/shell-quote.sld
+++ b/lassik/shell-quote.sld
@@ -3,14 +3,14 @@
 
 (define-library (lassik shell-quote)
   (export shell-quote)
-  (import (scheme base) (scheme write) (chibi match))
-  (cond-expand
-   ((library (srfi 175)) (import (srfi 175)))
-   (else (import (scheme char))
-         (begin (define (ascii-alphanumeric? char)
-                  (or (char-alphabetic? char) (char-numeric? char))))))
+  (import (scheme base)
+          (scheme char)
+          (chibi match))
   (begin
 
+    (define (ascii-alphanumeric? char)
+      (or (char-alphabetic? char) (char-numeric? char)))
+
     (define (delimit delimiter strings)
       (if (null? strings) ""
           (let loop ((strings (cdr strings)) (acc (car strings)))