Index: path-glob/test.scm
==================================================================
--- path-glob/test.scm
+++ path-glob/test.scm
@@ -1,9 +1,11 @@
 (use test posix srfi-1)
 (load "path-glob.scm")
 
-(define globbers `((multi-glob . ,multi-glob)(path-glob . ,path-glob)))
+;; (define globbers `((multi-glob . ,multi-glob)(path-glob . ,path-glob)))
+(define globbers `((path-glob . ,path-glob)))
+
 (define interesting-patts '("../*/*" "/*/bin/*" "./*/bin/*"))
 (define simple-patts '("../*" "/*" "/bin/*" "." ".." "*" "a[0-1]*"))
 
 (define (trim-list lst)
   (if (> (length lst) 3)
@@ -27,18 +29,18 @@
 
 (print "\nTest the globbers against patts - only checks for resiliance, not correctness.")
 (for-each
  (lambda (patt)
    (generate-prefix patt)(test #f #t (list? (path-glob patt)))
-   (generate-prefix patt)(test #f #t (list? (multi-glob patt)))
+   ;; (generate-prefix patt)(test #f #t (list? (multi-glob patt)))
    )
  interesting-patts)
 
 (print "\nCompare the globbers against each other")
-(for-each
+#;(for-each
  (lambda (patt)
    (generate-prefix patt)
    (test #f '() (trim-list
 		 (lset-xor string=? (path-glob patt)(multi-glob patt)))))
  interesting-patts)
 
 (test-exit)