From 0280658d1cd7df874915c9d1f70f46357e09cebe Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 27 Sep 2005 08:59:07 +0000
Subject: [PATCH] Fix the job list

part of darcs patch Sun Sep 18 12:25:51 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
---
 scheme/job-viewer.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/job-viewer.scm b/scheme/job-viewer.scm
index 7226e6f..384bd70 100644
--- a/scheme/job-viewer.scm
+++ b/scheme/job-viewer.scm
@@ -213,9 +213,9 @@
 		"-"))
 	  (#f "run status:"
 	      ,(format-job-run-state job))
-	  ,(if (job-with-console? job)
-	       `(,console-viewer "<View Console>" "")
-	       '())))
+	  ,@(if (job-with-console? job)
+		`((,console-viewer "<View Console>" ""))
+		'())))
        (- (result-buffer-num-lines buffer) 1)))
 
     (define (handle-key-press self key control-x-pressed?)