Index: tolbase/lib/byswidget/bodbc/bodbc.tcl
===================================================================
--- tolbase/lib/byswidget/bodbc/bodbc.tcl	(revision 47cbb8f7f5bfd4eae5758652b1d41b98dbf7837d)
+++ tolbase/lib/byswidget/bodbc/bodbc.tcl	(revision 0e1eabc57b9113106238b0bfa8a4e8227c428ee8)
@@ -305,6 +305,8 @@
 #    variable widget
     # wait
-    blt::busy hold $widget(dlg)
-    update
+    if { 0 } {
+      blt::busy hold $widget(dlg)
+      update
+    }
     # _Connect
     set mamMod [BfoGetText $widget(module)]
@@ -326,5 +328,7 @@
     }
     # end wait
-    blt::busy release $widget(dlg)
+    if { 0 } {
+      blt::busy release $widget(dlg)
+    }
   }