From 00de85699812f67a51246e03e07d02e97a67b10e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 10 Jun 2006 06:09:37 +0000
Subject: [PATCH] Previous change wasn't quite right.  Some more tweaking seems
 to help.

---
 v7/src/edwin/dired.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 20e3e778f..27f0a5bc7 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dired.scm,v 1.196 2006/06/10 04:17:51 cph Exp $
+$Id: dired.scm,v 1.197 2006/06/10 06:09:37 cph Exp $
 
 Copyright 1987,1989,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1999,2000,2001 Massachusetts Institute of Technology
@@ -878,9 +878,10 @@ Actions controlled by variables list-directory-brief-switches
     ;; Support for this was added to Edwin by cph.
     (rexp-compile
      (rexp-sequence (rexp* (rexp-any-char))
-		    (char-set-union digit (char-set #\)))
-		    (rexp-optional (string->char-set "BkKMGTPEZY"))
-		    s
+		    (rexp-alternatives
+		     (rexp-sequence digit (string->char-set "BkKMGTPEZY"))
+		     ")")
+		    s+
 		    (rexp-alternatives western
 				       western-comma
 				       east-asian
-- 
2.25.1