Index: generic/nsf.c
===================================================================
diff -u -rc2baf6c2b4e9a88c3580bdadf5e735dfe96d7f10 -r2b8b3b10404d6e67ce420e8e2a2fda57991d7c5f
--- generic/nsf.c	(.../nsf.c)	(revision c2baf6c2b4e9a88c3580bdadf5e735dfe96d7f10)
+++ generic/nsf.c	(.../nsf.c)	(revision 2b8b3b10404d6e67ce420e8e2a2fda57991d7c5f)
@@ -11163,8 +11163,13 @@
   if (nsPtr) {
     NSNamespacePreserve(nsPtr);
   }
+#if defined(NRE)
+  object->id = Tcl_NRCreateCommand(interp, nameString, NsfObjDispatch, NsfObjDispatch,
+				    (ClientData)object, TclDeletesObject);
+#else
   object->id = Tcl_CreateObjCommand(interp, nameString, NsfObjDispatch,
 				    (ClientData)object, TclDeletesObject);
+#endif
 
   /*fprintf(stderr, "cmd alloc %p %d (%s)\n", object->id, 
     Tcl_Command_refCount(object->id), nameString);*/
@@ -11583,8 +11588,14 @@
   if (nsPtr) {
     NSNamespacePreserve(nsPtr);
   }
+#if defined(NRE)
+  object->id = Tcl_NRCreateCommand(interp, nameString, NsfObjDispatch, NsfObjDispatch,
+				    (ClientData)cl, TclDeletesObject);
+#else
   object->id = Tcl_CreateObjCommand(interp, nameString, NsfObjDispatch,
 				    (ClientData)cl, TclDeletesObject);
+#endif
+
   PrimitiveOInit(object, interp, nameString, nsPtr, class);
   if (nsPtr) {
     NSNamespaceRelease(nsPtr);