Index: generic/nsfAccessInt.h
===================================================================
diff -u -r89c35cdde49d7be07d3b34a072e7c05357a9ee08 -r9be296c7be8b0c04eaedd9f96c36d626aa7c2c97
--- generic/nsfAccessInt.h	(.../nsfAccessInt.h)	(revision 89c35cdde49d7be07d3b34a072e7c05357a9ee08)
+++ generic/nsfAccessInt.h	(.../nsfAccessInt.h)	(revision 9be296c7be8b0c04eaedd9f96c36d626aa7c2c97)
@@ -57,6 +57,26 @@
 #define TclVarHashTablePtr(varTablePtr)		&(varTablePtr)->table
 #define TclVarValue(type, varPtr, field)	(type *)(varPtr)->value.field
 
+static NSF_INLINE Var *
+VarHashCreateVar(TclVarHashTable *tablePtr, Tcl_Obj *key, int *newPtr) {
+  Var *varPtr = NULL;
+  Tcl_HashEntry *hPtr;
+
+  hPtr = Tcl_CreateHashEntry((Tcl_HashTable *) tablePtr,
+                             (char *) key, newPtr);
+  if (hPtr) {
+    varPtr = TclVarHashGetValue(hPtr);
+  }
+  return varPtr;
+}
+
+static TclVarHashTable *
+VarHashTableCreate() {
+  TclVarHashTable *varTablePtr = (TclVarHashTable *) ckalloc(sizeof(TclVarHashTable));
+  TclInitVarHashTable(varTablePtr, NULL);
+  return varTablePtr;
+}
+
 /*
  * Conversion from CmdPtr to Class / Object
  */