--- /usr/share/tkcvs/errors.tcl.save	2005-07-06 16:00:04 +0400
+++ /usr/share/tkcvs/errors.tcl.save	2005-12-07 14:37:15 +0300
@@ -29,12 +29,17 @@ 
   if {$cvscfg(confirm_prompt) != "true"} { return 0 }
   if {! [winfo exists $parent]} {set parent .}
   set title {Confirm!}
-  tk_messageBox \
+  set answer [tk_messageBox \
         -icon question \
         -title $title \
         -message $mess \
         -parent $parent \
-        -type okcancel
+        -type okcancel]
+ if {$answer == "ok"} {
+    return 0; 
+ } else {
+    return 1; 
+ }
 }
 
 proc cvsfail {mess {parent {.}} } {