Index: generic/nsf.c
===================================================================
diff -u -r16a02881bff0a0d626d0045dfd96660338d0c314 -r5a162b098b6a9550218646d470b274769bda8da1
--- generic/nsf.c	(.../nsf.c)	(revision 16a02881bff0a0d626d0045dfd96660338d0c314)
+++ generic/nsf.c	(.../nsf.c)	(revision 5a162b098b6a9550218646d470b274769bda8da1)
@@ -29400,7 +29400,25 @@
 /***********************************************************************
  * Begin Object Info Methods
  ***********************************************************************/
+/*
+objectInfoMethod baseclass NsfObjInfoBaseclassMethod {
+}
+*/
+ 
+static int
+NsfObjInfoBaseclassMethod(Tcl_Interp *interp, NsfObject *object) {
+  NsfObjectSystem *osPtr;
+  
+  nonnull_assert(interp != NULL);
+  nonnull_assert(object != NULL);
 
+  osPtr = GetObjectSystem(object);
+  assert(osPtr != NULL);
+
+  Tcl_SetObjResult(interp, osPtr->rootClass->object.cmdName);
+
+  return TCL_OK;
+}
 /*
 objectInfoMethod children NsfObjInfoChildrenMethod {
   {-argName "-type" -required 0 -nrargs 1 -type class}