--- otcl.c.orig	Fri Feb 19 14:33:36 1999
+++ otcl.c	Wed Nov  3 15:31:47 1999
@@ -762,13 +762,7 @@
     for (; args!=0 && i<3; args = args->nextPtr, i++) ;
     Tcl_ResetResult(in);
     while (args != 0) {
-#if TCL_MAJOR_VERSION >= 8
-#if TCL_RELEASE_SERIAL >= 3
 	    if (TclIsVarArgument(args))
-#else
-	    if (args->isArg)
-#endif
-#endif
 		    Tcl_AppendElement(in, args->name);
 	    args = args->nextPtr;
     }
@@ -802,7 +796,7 @@
       if (ap->defValuePtr != 0) {
 	if (Tcl_SetVar(in, 
 		       var, 
-		       TclGetStringFromObj(ap->defValuePtr, 
+		       Tcl_GetStringFromObj(ap->defValuePtr, 
 					   (int *) NULL),
 		       0) == NULL) {
 #endif
@@ -840,7 +834,7 @@
     Tcl_AppendResult(in, proc->command, 0);
 #else 
     Tcl_AppendResult(in, 
-		     TclGetStringFromObj(proc->bodyPtr, (int *)NULL),
+		     Tcl_GetStringFromObj(proc->bodyPtr, (int *)NULL),
 		     0);
 #endif
     return TCL_OK;
