Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.60 -r1.61
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	19 Jun 2018 16:08:35 -0000	1.60
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	20 Oct 2018 16:39:45 -0000	1.61
@@ -61,7 +61,10 @@
      if {[info exists ::ds_enabled_p]} {
          return $::ds_enabled_p
      }
-     if { ![nsv_exists ds_properties enabled_p] || ![nsv_get ds_properties enabled_p] } {
+     if { [ns_conn isconnected] == 0
+          || ![nsv_exists ds_properties enabled_p]
+          || ![nsv_get ds_properties enabled_p]
+      } {
          set ::ds_enabled_p 0
      } else {
          set ::ds_enabled_p 1