@@ -374,10 +374,12 @@
  *
  *-------------------------------------------------------------------
  */
 static int DigestBlockModeProc(ClientData clientData, int mode) {
     DigestState *statePtr = (DigestState *) clientData;
+
+    dprintf("Called");
 
     if (mode == TCL_MODE_NONBLOCKING) {
 	statePtr->flags |= TLS_TCL_ASYNC;
     } else {
 	statePtr->flags &= ~(TLS_TCL_ASYNC);
@@ -402,10 +404,12 @@
  *
  *-------------------------------------------------------------------
  */
 int DigestCloseProc(ClientData clientData, Tcl_Interp *interp) {
     DigestState *statePtr = (DigestState *) clientData;
+
+    dprintf("Called");
 
     /* Cancel active timer, if any */
     if (statePtr->timer != (Tcl_TimerToken) NULL) {
 	Tcl_DeleteTimerHandler(statePtr->timer);
 	statePtr->timer = (Tcl_TimerToken) NULL;
@@ -435,10 +439,12 @@
 
 /*
  * Same as DigestCloseProc but with individual read and write close control
  */
 static int DigestClose2Proc(ClientData instanceData, Tcl_Interp *interp, int flags) {
+
+    dprintf("Called");
 
     if ((flags & (TCL_CLOSE_READ | TCL_CLOSE_WRITE)) == 0) {
 	return DigestCloseProc(instanceData, interp);
     }
     return EINVAL;
@@ -464,10 +470,12 @@
 int DigestInputProc(ClientData clientData, char *buf, int toRead, int *errorCodePtr) {
     DigestState *statePtr = (DigestState *) clientData;
     Tcl_Channel parent;
     Tcl_Size read;
     *errorCodePtr = 0;
+
+    dprintf("Called");
 
     /* Abort if nothing to process */
     if (toRead <= 0 || statePtr->self == (Tcl_Channel) NULL) {
 	return 0;
     }
@@ -528,10 +536,12 @@
  *----------------------------------------------------------------------
  */
  int DigestOutputProc(ClientData clientData, const char *buf, int toWrite, int *errorCodePtr) {
     DigestState *statePtr = (DigestState *) clientData;
     *errorCodePtr = 0;
+
+    dprintf("Called");
 
     /* Abort if nothing to process */
     if (toWrite <= 0 || statePtr->self == (Tcl_Channel) NULL) {
 	return 0;
     }
@@ -564,10 +574,12 @@
 static int DigestSetOptionProc(ClientData clientData, Tcl_Interp *interp, const char *optionName,
 	const char *optionValue) {
     DigestState *statePtr = (DigestState *) clientData;
     Tcl_Channel parent;
     Tcl_DriverSetOptionProc *setOptionProc;
+
+    dprintf("Called");
 
     /* Abort if no channel */
     if (statePtr->self == (Tcl_Channel) NULL) {
 	return TCL_ERROR;
     }
@@ -602,10 +614,12 @@
 static int DigestGetOptionProc(ClientData clientData, Tcl_Interp *interp, const char *optionName,
 	Tcl_DString *optionValue) {
     DigestState *statePtr = (DigestState *) clientData;
     Tcl_Channel parent;
     Tcl_DriverGetOptionProc *getOptionProc;
+
+    dprintf("Called");
 
     /* Abort if no channel */
     if (statePtr->self == (Tcl_Channel) NULL) {
 	return TCL_ERROR;
     }
@@ -639,10 +653,12 @@
  *
  *----------------------------------------------------------------------
  */
 static void DigestTimerHandler(ClientData clientData) {
     DigestState *statePtr = (DigestState *) clientData;
+
+    dprintf("Called");
 
     /* Abort if no channel */
     if (statePtr->self == (Tcl_Channel) NULL) {
 	return;
     }
@@ -673,10 +689,12 @@
  */
 void DigestWatchProc(ClientData clientData, int mask) {
     DigestState *statePtr = (DigestState *) clientData;
     Tcl_Channel parent;
     Tcl_DriverWatchProc *watchProc;
+
+    dprintf("Called");
 
     /* Abort if no channel */
     if (statePtr->self == (Tcl_Channel) NULL) {
 	return;
     }
@@ -720,10 +738,12 @@
  *----------------------------------------------------------------------
  */
 int DigestGetHandleProc(ClientData clientData, int direction, ClientData *handlePtr) {
     DigestState *statePtr = (DigestState *) clientData;
     Tcl_Channel parent;
+
+    dprintf("Called");
 
     /* Abort if no channel */
     if (statePtr->self == (Tcl_Channel) NULL) {
 	return TCL_ERROR;
     }
@@ -747,10 +767,12 @@
  *
  *----------------------------------------------------------------------
  */
 int DigestNotifyProc(ClientData clientData, int interestMask) {
     DigestState *statePtr = (DigestState *) clientData;
+
+    dprintf("Called");
 
     /* Skip timer event as redundant */
     if (statePtr->timer != (Tcl_TimerToken) NULL) {
 	Tcl_DeleteTimerHandler(statePtr->timer);
 	statePtr->timer = (Tcl_TimerToken) NULL;
@@ -982,10 +1004,12 @@
  *
  *-------------------------------------------------------------------
  */
 void DigestCommandDeleteHandler(ClientData clientData) {
     DigestState *statePtr = (DigestState *) clientData;
+
+    dprintf("Called");
 
     /* Clean-up */
     DigestStateFree(statePtr);
 }