--- aolserver/nsd/tclresp.c	2011-07-15 15:31:10.000000000 +0100
+++ tclresp.c	2011-07-15 15:31:23.000000000 +0100
@@ -444,11 +444,13 @@
  *
  * ReturnObjCmd --
  * NsTclReturnNotFoundObjCmd --
+ * NsTclReturnTooLargeObjCmd --
  * NsTclReturnUnauthorizedObjCmd --
  * NsTclReturnForbiddenCmd --
  *
- *	Implement the ns_returnnotfound, ns_returnunauthorized, and
- *	ns_returnforbidden generic return commands.
+ *	Implement the ns_returnnotfound, ns_returntoolarge,
+ *	ns_returnunauthorized, and ns_returnforbidden generic return
+ *	commands.
  *
  * Results:
  *	Tcl result.
@@ -459,6 +461,7 @@
  *----------------------------------------------------------------------
  */
 
+
 static int
 ReturnObjCmd(ClientData arg, Tcl_Interp *interp, int objc,
 		Tcl_Obj *CONST objv[], int (*proc) (Ns_Conn *))
@@ -486,6 +489,13 @@
 }
 
 int
+NsTclReturnTooLargeObjCmd(ClientData arg, Tcl_Interp *interp, int objc,
+			  Tcl_Obj *CONST objv[])
+{
+    return ReturnObjCmd(arg, interp, objc, objv, Ns_ConnReturnEntityTooLarge);
+}
+
+int
 NsTclReturnUnauthorizedObjCmd(ClientData arg, Tcl_Interp *interp, int objc,
 			      Tcl_Obj *CONST objv[])
 {