X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=lib%2Fguile%2Fdolcon%2Fui.scm;fp=lib%2Fguile%2Fdolcon%2Fui.scm;h=d6b435499f77529a644dd6640855998315889c68;hb=ee63cbcbef1dd62fec342c5c60129e3f21011bec;hp=73828df0bc25e97d6a51fa004a65e27da190e321;hpb=c52332778b75b99ca95cd26cfe34a22dfa9cd18e;p=doldaconnect.git

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