diff --git a/scsh/CSAN/CSAN.scm b/scsh/CSAN/CSAN.scm
index 439a0df..7a11c15 100644
--- a/scsh/CSAN/CSAN.scm
+++ b/scsh/CSAN/CSAN.scm
@@ -214,8 +214,9 @@ a valid CSAN URL now.
   "22. Please remember to call 'o conf commit' to make the config permanent!
 
 
-cpan shell -- CSAN exploration and modules installation (v1.9402)
-Enter 'h' for help.")
+cpan shell -- CSAN exploration and modules installation (v0.1)
+Enter 'h' for help.
+Commands : get filename.tar.gz")
 
 (define questions (make-table))
 (table-set! questions 1 CSAN-shell-droptext-1)
diff --git a/scsh/CSAN/packages.scm b/scsh/CSAN/packages.scm
index 51dfd6a..db6612e 100644
--- a/scsh/CSAN/packages.scm
+++ b/scsh/CSAN/packages.scm
@@ -1,6 +1,8 @@
 (define-interface CSAN-interface
   (export
-   CSAN-question~))
+   CSAN-question~
+   CSAN-shell-spawn
+   CSAN-dir))
 
 (define-structure CSAN
   CSAN-interface
diff --git a/scsh/snow/load.scm b/scsh/snow/load.scm
index 4940176..b45dafd 100644
--- a/scsh/snow/load.scm
+++ b/scsh/snow/load.scm
@@ -1,4 +1,4 @@
-;;; load.scm - a scheme CSAN
+;;; load.scm - a scheme CSAN - Snow utility
 ;;;
 ;;; Copyright (c) 2012 Johan Ceuppens
 ;;;
@@ -27,4 +27,9 @@
 ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 (load "snow-repository.scm")
-(display (snow-repository "./test.scm" '()))
+
+(let* ((url (snow-repository "./test.scm" '()))
+       (snow-mirror-url url))
+  (display (question? 22))
+  (CSAN-shell-spawn CSAN-dir snow-mirror-url))
+
diff --git a/scsh/snow/packages.scm b/scsh/snow/packages.scm
index 482f797..848bb9c 100644
--- a/scsh/snow/packages.scm
+++ b/scsh/snow/packages.scm
@@ -2,8 +2,8 @@
   (export
    parse-for snow-repository))
 
-(define-structure snow 
+(define-structure snow
   snow-interface
-  (open scheme)
-  (files snow))
+  (open scheme CSAN)
+  (files snow-repository))
 
diff --git a/scsh/snow/snow-repository.scm b/scsh/snow/snow-repository.scm
index 736edb2..fab10f7 100644
--- a/scsh/snow/snow-repository.scm
+++ b/scsh/snow/snow-repository.scm
@@ -36,7 +36,7 @@
                 (set! word ""))
                ((eq? (string-ref s i) #\newline)
                 #t));;(string-set! s i ""
-         
+
          (set! word (string-append word (string (string-ref s i))))))))
 
 (define (read-in-file-contents filename)
@@ -55,7 +55,7 @@
             ((eq? (string-ref s i) #\")
              (string-append s (string #\"))
              i)
-          
+
           (set! word (string-append word (string (string-ref s i)))))
         (error "parse-for-url : malformed url string"))))
 
@@ -72,7 +72,7 @@
     (set! index4 (parse-for contents "url" index))
     (set! urlstr (parse-for-url contents index4))
 
-    (set! db (append db (cons "url" urlstr)))
+    (set! db (append db (list (list "url" urlstr))))
     db))