Index: generic/gentclAPI.tcl
===================================================================
diff -u -r2ba521e3dfbb1294908b51ed8e13dab5adc3ca03 -ra09faeafaaacd8dcd4c52cdb86653993e8dc499a
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 2ba521e3dfbb1294908b51ed8e13dab5adc3ca03)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision a09faeafaaacd8dcd4c52cdb86653993e8dc499a)
@@ -1,12 +1,15 @@
+#!/bin/env tclsh
+# -*- Tcl -*-
 # 
 # C-Code generator to generate stubs to handle all objv-parsing from
 # an simple interface definition language. This guarantees consistent
 # handling of input argument types, consistent error messages in case
 # of failures and eases documentation.
 #
-# Gustaf Neumann,                                fecit in June 2009
+#   Copyright (C) 2009-2011 Gustaf Neumann
 #
 
+
 set ::converter ""
 set ::objCmdProc "(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv \[\]);"
 
@@ -449,5 +452,11 @@
 source $decls
 close $::nxdocIndex
 
+puts {
+/*
+ * This source code file was generated by the C-code generator gentclAPI.tcl, 
+ * part of the Next Scripting Framework.
+ */
+}
 genstubs
 puts stderr "[array size ::definitions] parsing stubs generated"