From: Fredrik Tolf <fredrik@dolda2000.com>
Date: Sat, 22 Dec 2007 06:16:34 +0000 (+0100)
Subject: Merge branch 'master' of git.dolda2000.com:/srv/git/r/doldaconnect
X-Git-Tag: 1.1~30
X-Git-Url: http://dolda2000.com/gitweb/?a=commitdiff_plain;h=32b515967965a673352cfeedb34bac606df398ef;hp=8bd2d2694e31dfa1a56a909998f2d921285aa9e2;p=doldaconnect.git

Merge branch 'master' of git.dolda2000.com:/srv/git/r/doldaconnect
---

diff --git a/lib/guile/dolcon/ui.scm b/lib/guile/dolcon/ui.scm
index bf57b06..b8ec63f 100644
--- a/lib/guile/dolcon/ui.scm
+++ b/lib/guile/dolcon/ui.scm
@@ -68,10 +68,9 @@
 (define-public dc-ecmd
   (lambda args
     (let ((tag (dc-qcmd args)))
-      (if (>= tag 0)
-	  (do ((resp (dc-getresp tag) (dc-getresp tag)))
-	      (resp resp)
-	    (dc-select)))
+      (do ((resp (dc-getresp tag) (dc-getresp tag)))
+	  (resp resp)
+	(dc-select))
       )
     )
   )