Make dc-ecmd more error tolerant.

git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@727 959494ce-11ee-0310-bf91-de5d638817bd

diff --git a/lib/guile/dolcon/ui.scm b/lib/guile/dolcon/ui.scm
index 73828df0bc25e97d6a51fa004a65e27da190e321..d6b435499f77529a644dd6640855998315889c68 100644 (file)
--- 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)))
       )
     )
   )