From da28396e3cb92e8e0c74fe086141dcfbb65faebb Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 31 May 2005 16:02:01 +0000
Subject: [PATCH] Delete superfluous parentheses

---
 scheme/browse-directory-list.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/browse-directory-list.scm b/scheme/browse-directory-list.scm
index 25eb897..231b548 100644
--- a/scheme/browse-directory-list.scm
+++ b/scheme/browse-directory-list.scm
@@ -166,7 +166,7 @@
                 working-dir))
        
              (else
-              (error "fsobjects-viewer unknown message" message))))))))
+              (error "fsobjects-viewer unknown message" message)))))))
 
 (define (list-of-fs-objects? thing)
   (and (proper-list? thing)