Index: xotcl/generic/xotclInt.h
===================================================================
diff -u -rf9bb662bd07a30d00a33e75ab3354bb9f8463999 -re525b7364d9b1fbc7b06e81becf4fe0df06c4209
--- xotcl/generic/xotclInt.h	(.../xotclInt.h)	(revision f9bb662bd07a30d00a33e75ab3354bb9f8463999)
+++ xotcl/generic/xotclInt.h	(.../xotclInt.h)	(revision e525b7364d9b1fbc7b06e81becf4fe0df06c4209)
@@ -1,5 +1,5 @@
 /* -*- Mode: c++ -*-
- *  $Id: xotclInt.h,v 1.22 2007/08/14 16:36:47 neumann Exp $
+ *  $Id: xotclInt.h,v 1.23 2007/08/14 16:38:26 neumann Exp $
  *  Extended Object Tcl (XOTcl)
  *
  *  Copyright (C) 1999-2006 Gustaf Neumann, Uwe Zdun
@@ -39,6 +39,10 @@
 /*
  * Makros
  */
+#if defined(PRE85)
+# define TclVarHashTable Tcl_HashTable
+#endif
+
 #ifdef XOTCL_MEM_COUNT
 Tcl_HashTable xotclMemCount; 
 extern int xotclMemCountInterpCounter;
@@ -293,7 +297,7 @@
    Note that it is possible that between push and pop
    a obj->nsPtr can be created (e.g. during a read trace)
 */
-#define XOTcl_FrameDecls Tcl_CallFrame frame; int frame_constructed = 1;
+#define XOTcl_FrameDecls Tcl_CallFrame frame; int frame_constructed = 1
 #define XOTcl_PushFrame(interp,obj) \
      if ((obj)->nsPtr) {				     \
        frame_constructed = 0; \
@@ -477,7 +481,7 @@
   Tcl_Command id;
   Tcl_Interp *teardown;
   struct XOTclClass *cl;
-  Tcl_HashTable *varTable;
+  TclVarHashTable *varTable;
   Tcl_Namespace *nsPtr;
   XOTclObjectOpt *opt;
   struct XOTclCmdList *filterOrder;