X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=lib%2Fguile%2Fdolcon%2Fui.scm;h=b8ec63ffe34f843c35926dbbaf292148c488dc07;hb=01e40b61f62db9063fba22168f2ac16e3cebbb8e;hp=bf57b06748ee0778b52d93f127c0ff40b03ef258;hpb=fee53a96df5c6cbfeb289faa8968ac33da05dd93;p=doldaconnect.git

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))
       )
     )
   )