Index: TODO
===================================================================
diff -u -raef3573d5885ec29f7ae7a5dc29a2b43e76b506c -r3b2edfa776291682e0d251322997aad328b885df
--- TODO	(.../TODO)	(revision aef3573d5885ec29f7ae7a5dc29a2b43e76b506c)
+++ TODO	(.../TODO)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -2121,6 +2121,8 @@
    NSF_WITH_ASSERTIONS
 - added flag NSF_WITH_VALUE_WARNINGS
 
+- defined nsf::deprecated as tcl proc, using ::nsf::log
+- some minor refactoring
 
 TODO:
 - "info method definition" for attributes?
Index: generic/gentclAPI.decls
===================================================================
diff -u -r851d0946675bb6b211187eec3f137c025127cd02 -r3b2edfa776291682e0d251322997aad328b885df
--- generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision 851d0946675bb6b211187eec3f137c025127cd02)
+++ generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -42,11 +42,6 @@
   {-argName "rootMetaClass" -required 1 -type tclobj}
   {-argName "systemMethods" -required 0 -type tclobj}
 }
-nsfCmd deprecated NsfDeprecatedCmd {
-  {-argName "what" -required 1}
-  {-argName "oldCmd" -required 1}
-  {-argName "newCmd" -required 0}
-}
 nsfCmd dispatch NsfDispatchCmd {
   {-argName "object" -required 1 -type object}
   {-argName "-frame" -required 0 -nrargs 1 -type "method|object|default" -default "default"}
Index: generic/nsf.c
===================================================================
diff -u -raef3573d5885ec29f7ae7a5dc29a2b43e76b506c -r3b2edfa776291682e0d251322997aad328b885df
--- generic/nsf.c	(.../nsf.c)	(revision aef3573d5885ec29f7ae7a5dc29a2b43e76b506c)
+++ generic/nsf.c	(.../nsf.c)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -267,7 +267,6 @@
 extern void NsfClassListFree(NsfClasses *firstPtr);
 
 /* misc prototypes */
-static int NsfDeprecatedCmd(Tcl_Interp *interp, CONST char *what, CONST char *oldCmd, CONST char *newCmd);
 static int SetInstVar(Tcl_Interp *interp, NsfObject *object, Tcl_Obj *nameObj, Tcl_Obj *valueObj);
 static int ListDefinedMethods(Tcl_Interp *interp, NsfObject *object, CONST char *pattern,
 			      int withPer_object, int methodType, int withCallproctection,
@@ -276,9 +275,63 @@
 			       CONST char *methodName, int objc, Tcl_Obj *CONST objv[],
 			       NsfCallStackContent *cscPtr, int freeArgumentVector);
 
+
 /*
  *----------------------------------------------------------------------
  *
+ * NsfErrorContext --
+ *
+ *      Print the current errorCode and errorInfo to stderr.
+ *      This should be used as the last ressor, when e.g. logging fails
+ *
+ * Results:
+ *      None.
+ *
+ * Side effects:
+ *      Output to stderr
+ *
+ *----------------------------------------------------------------------
+ */
+static void
+NsfErrorContext(Tcl_Interp *interp, CONST char *context) {
+  Tcl_DString ds, *dsPtr = &ds;
+
+  Tcl_DStringInit(dsPtr);
+  Tcl_DStringAppend(dsPtr, "puts stderr \"Error in ", -1);
+  Tcl_DStringAppend(dsPtr, context, -1);
+  Tcl_DStringAppend(dsPtr, ":\n$::errorCode $::errorInfo\"", -1);
+  Tcl_EvalEx(interp, Tcl_DStringValue(dsPtr), Tcl_DStringLength(dsPtr), 0);
+  Tcl_DStringFree(dsPtr);
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * NsfDStringEval --
+ *
+ *      Evaluate the provided Tcl_DString as a Tcl command and output
+ *      the error stack in case of a failure.
+ *
+ * Results:
+ *      Tcl result code.
+ *
+ * Side effects:
+ *      Output to stderr possible.
+ *
+ *----------------------------------------------------------------------
+ */
+static int
+NsfDStringEval(Tcl_Interp *interp, Tcl_DString *dsPtr, CONST char *context) {
+  int result = Tcl_EvalEx(interp, Tcl_DStringValue(dsPtr), Tcl_DStringLength(dsPtr), 0);
+  if (result == TCL_ERROR) {
+    NsfErrorContext(interp, context);
+  }
+  return result;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
  * NsfLog --
  *
  *      Produce a formatted warning by calling an external function
@@ -288,7 +341,7 @@
  *      None.
  *
  * Side effects:
- *      None.
+ *      Output of the warning.
  *
  *----------------------------------------------------------------------
  */
@@ -307,23 +360,50 @@
     va_end(ap);
 
     Tcl_DStringInit(&cmdString);
-    Tcl_DStringAppendElement(&cmdString, "nsf::log");
+    Tcl_DStringAppendElement(&cmdString, "::nsf::log");
     Tcl_DStringAppendElement(&cmdString, level);
     Tcl_DStringAppendElement(&cmdString, Tcl_DStringValue(&ds));
-
-    int result = Tcl_EvalEx(interp, Tcl_DStringValue(&cmdString), Tcl_DStringLength(&cmdString), 0);
-    if (result == TCL_ERROR) {
-      static char cmdString[] =
-	"puts stderr \"Error in logger\n\
-      $::errorCode $::errorInfo\"";
-      Tcl_EvalEx(interp, cmdString, -1, 0);
-    }
+    NsfDStringEval(interp, &cmdString, "log command");
     Tcl_DStringFree(&cmdString);
     Tcl_DStringFree(&ds);
   }
 }
 
+
 /*
+ *----------------------------------------------------------------------
+ *
+ * NsfDeprecatedCmd --
+ *
+ *      Provide a warning about a depracted command or method. The
+ *      message is produced via calling the external Tcl function
+ *      ::nsf::deprecated.
+ *
+ * Results:
+ *      None.
+ *
+ * Side effects:
+ *      Output of the warning.
+ *
+ *----------------------------------------------------------------------
+ */
+static void
+NsfDeprecatedCmd(Tcl_Interp *interp, CONST char *what, CONST char *oldCmd, CONST char *newCmd) {
+  Tcl_DString ds, *dsPtr = &ds;
+
+  assert(what);
+  assert(oldCmd);
+
+  Tcl_DStringInit(dsPtr);
+  Tcl_DStringAppendElement(dsPtr, "::nsf::deprecated");
+  Tcl_DStringAppendElement(dsPtr, what);
+  Tcl_DStringAppendElement(dsPtr, oldCmd);
+  Tcl_DStringAppendElement(dsPtr, newCmd ? newCmd : "");
+  NsfDStringEval(interp, dsPtr, "log command");
+  Tcl_DStringFree(dsPtr);
+}
+
+/*
  * argv parsing
  */
 
@@ -7945,10 +8025,7 @@
      * The object might be already gone here, since we have no stack frame.
      * Therefore, we can't even use nsf::current object safely.
      */
-    static char cmdString[] =
-      "puts stderr \"Error in method destroy\n\
-      $::errorCode $::errorInfo\"";
-    Tcl_EvalEx(interp, cmdString, -1, 0);
+    NsfErrorContext(interp, "method destroy");
 
     if (++RUNTIME_STATE(interp)->errorCount > 20)
       Tcl_Panic("too many destroy errors occured. Endless loop?", NULL);
@@ -8444,10 +8521,10 @@
     paramPtr->flags &= ~NSF_ARG_REQUIRED;
   } else if (strncmp(option, "substdefault", 12) == 0) {
     paramPtr->flags |= NSF_ARG_SUBST_DEFAULT;
-  } else if (strncmp(option, "allowempty", 10) == 0) {
+  } /* TODO REMOVE ME else if (strncmp(option, "allowempty", 10) == 0) {
     fprintf(stderr, "******* allowempty is deprecated, use instead multiplicity 0..1\n");
     paramPtr->flags |= NSF_ARG_ALLOW_EMPTY;
-  } else if (strncmp(option, "convert", 7) == 0) {
+    } */ else if (strncmp(option, "convert", 7) == 0) {
     paramPtr->flags |= NSF_ARG_IS_CONVERTER;
   } else if (strncmp(option, "initcmd", 7) == 0) {
     paramPtr->flags |= NSF_ARG_INITCMD;
@@ -8472,13 +8549,13 @@
       return NsfPrintError(interp, "upper bound of multiplicty in %s not supported", argString);
     }
     //fprintf(stderr, "%s set multivalued option %s\n", paramPtr->name, option);
-  } else if (strncmp(option, "multivalued", 11) == 0) {
+  } /* TODO REMOVE ME else if (strncmp(option, "multivalued", 11) == 0) {
     fprintf(stderr, "******* multivalued is deprecated, use instead multiplicity 1..*\n");
     if ((paramPtr->flags & (NSF_ARG_INITCMD|NSF_ARG_RELATION|NSF_ARG_METHOD|NSF_ARG_SWITCH)) != 0)
 	return NsfPrintError(interp, 
 			     "option multivalued not allowed for \"initcmd\", \"method\", \"relation\" or \"switch\"\n");
     paramPtr->flags |= NSF_ARG_MULTIVALUED;
-  } else if (strncmp(option, "noarg", 5) == 0) {
+    } */ else if (strncmp(option, "noarg", 5) == 0) {
     if ((paramPtr->flags & NSF_ARG_METHOD) == 0) {
       return NsfPrintError(interp, "option noarg only allowed for parameter type \"method\"");
     }
@@ -13741,26 +13818,6 @@
 }
 
 /*
-nsfCmd deprecated NsfDeprecatedCmd {
-  {-argName "what" -required 1}
-  {-argName "oldCmd" -required 1}
-  {-argName "newCmd" -required 0}
-}
-*/
-/*
- * Prints a msg to the screen that oldCmd is deprecated
- * optinal: give a new cmd
- */
-static int
-NsfDeprecatedCmd(Tcl_Interp *interp, CONST char *what, CONST char *oldCmd, CONST char *newCmd) {
-  fprintf(stderr, "**\n**\n** The %s <%s> is deprecated.\n", what, oldCmd);
-  if (newCmd)
-    fprintf(stderr, "** Use <%s> instead.\n", newCmd);
-  fprintf(stderr, "**\n");
-  return TCL_OK;
-}
-
-/*
 nsfCmd dispatch NsfDispatchCmd {
   {-argName "object" -required 1 -type object}
   {-argName "-frame" -required 0 -nrargs 1 -type "method|object|default" -default "default"}
Index: generic/nsf.tcl
===================================================================
diff -u -re756bf87414d3f6376327b3a126e5e8ae619302d -r3b2edfa776291682e0d251322997aad328b885df
--- generic/nsf.tcl	(.../nsf.tcl)	(revision e756bf87414d3f6376327b3a126e5e8ae619302d)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -55,7 +55,6 @@
     } else {
       set rel "class-mixin"
     }
-    puts stderr LL=[llength $args]-$args
     if {[lindex $args 0] ne ""} {
       set oldSetting [::nsf::relation $object $rel]
       # use uplevel to avoid namespace surprises
@@ -100,9 +99,18 @@
   }
 
   #
-  # determine platform aware temp directory
+  # deprecated command
   #
-  
+  proc ::nsf::deprecated {what oldCmd newCmd} {
+    set msg "**\n** The $what $oldcmd is deprecated."
+    if {$newCmd ne ""} {append msg " use $newCmd instead."}
+    append msg "\n**\n"
+    nsf::log Warning $msg
+  }
+
+  #
+  # determine platform aware temp directory
+  #  
   proc tmpdir {} {
     foreach e [list TMPDIR TEMP TMP] {
       if {[info exists ::env($e)] \
Index: generic/predefined.h
===================================================================
diff -u -re756bf87414d3f6376327b3a126e5e8ae619302d -r3b2edfa776291682e0d251322997aad328b885df
--- generic/predefined.h	(.../predefined.h)	(revision e756bf87414d3f6376327b3a126e5e8ae619302d)
+++ generic/predefined.h	(.../predefined.h)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -21,7 +21,6 @@
 "set rel \"object-mixin\"\n"
 "set args [lrange $args 1 end]} else {\n"
 "set rel \"class-mixin\"}\n"
-"puts stderr LL=[llength $args]-$args\n"
 "if {[lindex $args 0] ne \"\"} {\n"
 "set oldSetting [::nsf::relation $object $rel]\n"
 "uplevel [list ::nsf::relation $object $rel [linsert $oldSetting 0 $args]]} else {\n"
@@ -41,6 +40,11 @@
 "ns_log $level \"nsf: $msg\"}} else {\n"
 "proc ::nsf::log {level msg} {\n"
 "puts stderr \"$level: $msg\"}}\n"
+"proc ::nsf::deprecated {what oldCmd newCmd} {\n"
+"set msg \"**\\n** The $what $oldcmd is deprecated.\"\n"
+"if {$newCmd ne \"\"} {append msg \" use $newCmd instead.\"}\n"
+"append msg \"\\n**\\n\"\n"
+"nsf::log Warning $msg}\n"
 "proc tmpdir {} {\n"
 "foreach e [list TMPDIR TEMP TMP] {\n"
 "if {[info exists ::env($e)] \\\n"
Index: generic/tclAPI.h
===================================================================
diff -u -r851d0946675bb6b211187eec3f137c025127cd02 -r3b2edfa776291682e0d251322997aad328b885df
--- generic/tclAPI.h	(.../tclAPI.h)	(revision 851d0946675bb6b211187eec3f137c025127cd02)
+++ generic/tclAPI.h	(.../tclAPI.h)	(revision 3b2edfa776291682e0d251322997aad328b885df)
@@ -213,7 +213,6 @@
 static int NsfCreateObjectSystemCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int NsfCurrentCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int NsfDebugRunAssertionsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
-static int NsfDeprecatedCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int NsfDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int NsfExistsVarCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int NsfFinalizeObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
@@ -297,7 +296,6 @@
 static int NsfCreateObjectSystemCmd(Tcl_Interp *interp, Tcl_Obj *rootClass, Tcl_Obj *rootMetaClass, Tcl_Obj *systemMethods);
 static int NsfCurrentCmd(Tcl_Interp *interp, int currentoption);
 static int NsfDebugRunAssertionsCmd(Tcl_Interp *interp);
-static int NsfDeprecatedCmd(Tcl_Interp *interp, CONST char *what, CONST char *oldCmd, CONST char *newCmd);
 static int NsfDispatchCmd(Tcl_Interp *interp, NsfObject *object, int withFrame, Tcl_Obj *command, int nobjc, Tcl_Obj *CONST nobjv[]);
 static int NsfExistsVarCmd(Tcl_Interp *interp, NsfObject *object, CONST char *varname);
 static int NsfFinalizeObjCmd(Tcl_Interp *interp);
@@ -382,7 +380,6 @@
  NsfCreateObjectSystemCmdIdx,
  NsfCurrentCmdIdx,
  NsfDebugRunAssertionsCmdIdx,
- NsfDeprecatedCmdIdx,
  NsfDispatchCmdIdx,
  NsfExistsVarCmdIdx,
  NsfFinalizeObjCmdIdx,
@@ -994,26 +991,6 @@
 }
 
 static int
-NsfDeprecatedCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
-  ParseContext pc;
-
-  if (ArgumentParse(interp, objc, objv, NULL, objv[0], 
-                     method_definitions[NsfDeprecatedCmdIdx].paramDefs, 
-                     method_definitions[NsfDeprecatedCmdIdx].nrParameters, 1,
-                     &pc) != TCL_OK) {
-    return TCL_ERROR;
-  } else {
-    CONST char *what = (CONST char *)pc.clientData[0];
-    CONST char *oldCmd = (CONST char *)pc.clientData[1];
-    CONST char *newCmd = (CONST char *)pc.clientData[2];
-
-    assert(pc.status == 0);
-    return NsfDeprecatedCmd(interp, what, oldCmd, newCmd);
-
-  }
-}
-
-static int
 NsfDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   ParseContext pc;
 
@@ -2146,11 +2123,6 @@
 {"::nsf::__db_run_assertions", NsfDebugRunAssertionsCmdStub, 0, {
   }
 },
-{"::nsf::deprecated", NsfDeprecatedCmdStub, 3, {
-  {"what", NSF_ARG_REQUIRED, 0, ConvertToString},
-  {"oldCmd", NSF_ARG_REQUIRED, 0, ConvertToString},
-  {"newCmd", 0, 0, ConvertToString}}
-},
 {"::nsf::dispatch", NsfDispatchCmdStub, 4, {
   {"object", NSF_ARG_REQUIRED, 0, ConvertToObject},
   {"-frame", 0|NSF_ARG_IS_ENUMERATION, 1, ConvertToFrame},