diff --git a/tgt-stub/stub.c b/tgt-stub/stub.c
index 902c8abc2..12d5c0bcd 100644
--- a/tgt-stub/stub.c
+++ b/tgt-stub/stub.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: stub.c,v 1.87 2004/06/30 02:16:27 steve Exp $"
+#ident "$Id: stub.c,v 1.88 2004/06/30 03:05:04 steve Exp $"
 #endif
 
 # include "config.h"
@@ -121,8 +121,9 @@ static void show_expression(ivl_expr_t net, unsigned ind)
 	    break;
 
 	  case IVL_EX_SFUNC:
-	    fprintf(out, "%*s<function=\"%s\", width=%u, %s>\n", ind, "",
-		    ivl_expr_name(net), ivl_expr_width(net), sign);
+	    fprintf(out, "%*s<function=\"%s\", width=%u, %s, vt=%d>\n",
+		    ind, "", ivl_expr_name(net), ivl_expr_width(net),
+		    sign, ivl_expr_value(net));
 	    { unsigned cnt = ivl_expr_parms(net);
 	      unsigned idx;
 	      for (idx = 0 ;  idx < cnt ;  idx += 1)
@@ -946,6 +947,9 @@ int target_design(ivl_design_t des)
 
 /*
  * $Log: stub.c,v $
+ * Revision 1.88  2004/06/30 03:05:04  steve
+ *  Dump variable type of system function.
+ *
  * Revision 1.87  2004/06/30 02:16:27  steve
  *  Implement signed divide and signed right shift in nets.
  *