--- generic/tclBasic.c	2011-01-30 14:49:22.193673505 -0300
+++ ../fossil/NEW/head/generic/tclBasic.c	2011-01-18 11:00:08.899388510 -0300
@@ -4280,7 +4280,6 @@
      * a callback to do the actual running.
      */
 
-#if 0
     objProc = cmdPtr->nreProc;
     if (!objProc) {
 	objProc = cmdPtr->objProc;
@@ -4289,15 +4288,7 @@
 
     TclNRAddCallback(interp, NRRunObjProc, objProc, objClientData,
 	    INT2PTR(objc), (ClientData) objv);
-#else
-    if (cmdPtr->nreProc) {
-        TclNRAddCallback(interp, NRRunObjProc, cmdPtr->nreProc,
-                cmdPtr->objClientData, INT2PTR(objc), (ClientData) objv);
-        return TCL_OK;
-    } else {
-	return cmdPtr->objProc(cmdPtr->objClientData, interp, objc, objv);
-    }        
-#endif
+    return TCL_OK;
 }
 
 void
