diff --git a/scsh/glob.scm b/scsh/glob.scm
index 900cb5b..c725d65 100644
--- a/scsh/glob.scm
+++ b/scsh/glob.scm
@@ -122,10 +122,9 @@
 			     (cons re-any (str-cons chars res))
 			     i))
 				
-		  ((#\[) (receive (cset i) (parse-glob-bracket pat i)
+		  ((#\[) (receive (re i) (parse-glob-bracket pat i)
 			   (lp '()
-			       (cons (re-char-set cset)
-				     (str-cons chars res))
+			       (cons re (str-cons chars res))
 			       i)))
 
 		  (else  (lp (cons c chars) res i))))))))))