diff --git a/src/backend/tcop/dest.c b/src/backend/tcop/dest.c
index 72494b3ae9..ea1548cd3d 100644
--- a/src/backend/tcop/dest.c
+++ b/src/backend/tcop/dest.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/backend/tcop/dest.c,v 1.9 1997/08/28 05:05:43 vadim Exp $
+ *    $Header: /cvsroot/pgsql/src/backend/tcop/dest.c,v 1.10 1997/08/29 09:04:18 vadim Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -54,6 +54,8 @@ donothing(HeapTuple tuple, TupleDesc attrdesc)
 {
 }
 
+extern void spi_printtup (HeapTuple tuple, TupleDesc tupdesc);
+
 void (*DestToFunction(CommandDest dest))(HeapTuple, TupleDesc)
 {
     switch (dest) {
@@ -72,6 +74,10 @@ void (*DestToFunction(CommandDest dest))(HeapTuple, TupleDesc)
     case Debug:
 	return debugtup;
 	break;
+    
+    case SPI:
+    	return spi_printtup;
+    	break;
 	
     case None:
     default:
diff --git a/src/include/tcop/dest.h b/src/include/tcop/dest.h
index a1f9f71f98..7878ed9d41 100644
--- a/src/include/tcop/dest.h
+++ b/src/include/tcop/dest.h
@@ -26,7 +26,7 @@
  *
  * Copyright (c) 1994, Regents of the University of California
  *
- * $Id: dest.h,v 1.7 1997/08/27 09:05:09 vadim Exp $
+ * $Id: dest.h,v 1.8 1997/08/29 09:06:27 vadim Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -47,8 +47,9 @@ typedef enum {
     Remote,		/* results sent to frontend process */
     CopyBegin,		/* results sent to frontend process but are strings */
     CopyEnd,	        /* results sent to frontend process but are strings */
-    RemoteInternal      /* results sent to frontend process in internal
+    RemoteInternal,     /* results sent to frontend process in internal
 			   (binary) form */
+    SPI			/* results sent to SPI manager */
 } CommandDest;