Index: generic/nsfInt.h
===================================================================
diff -u -rd1ed482555d4d28dbb41fb9ca2723eabb5e01221 -r5bf6fcf6449ad27d4f3df580f2f5b9521435e8b0
--- generic/nsfInt.h	(.../nsfInt.h)	(revision d1ed482555d4d28dbb41fb9ca2723eabb5e01221)
+++ generic/nsfInt.h	(.../nsfInt.h)	(revision 5bf6fcf6449ad27d4f3df580f2f5b9521435e8b0)
@@ -738,6 +738,25 @@
 #endif /* NSF_MEM_COUNT */
 
 /*
+ * TCL_STACK_ALLOC_TRACE
+ */
+#if defined(TCL_STACK_ALLOC_TRACE)
+# define NsfTclStackFree(interp,ptr,msg) \
+  fprintf(stderr, "---- TclStackFree %p %s\n", ptr, msg);\
+  TclStackFree(interp,ptr)
+
+static char *
+NsfTclStackAlloc(Tcl_Interp *interp, size_t size, char *msg) {
+  char *ptr = TclStackAlloc(interp, size);
+  fprintf(stderr, "---- TclStackAlloc %p %s\n", ptr, msg);
+  return ptr;
+}
+#else
+# define NsfTclStackFree(interp,ptr,msg) TclStackFree(interp,ptr)
+# define NsfTclStackAlloc(interp,size,msg) TclStackAlloc(interp,size)
+#endif
+
+/*
  * bytecode support
  */
 #ifdef NSF_BYTECODE