diff --git a/src/svalue.c b/src/svalue.c
index 7bbcd72d0cf13c374436a7b9919ea570eed5b8f0..65206b22c550523600a573aeb4f2ba9ae11bf6d4 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -21,7 +21,7 @@
 #include <ctype.h>
 #include "queue.h"
 
-RCSID("$Id: svalue.c,v 1.32 1998/05/19 20:40:40 hubbe Exp $");
+RCSID("$Id: svalue.c,v 1.33 1998/05/25 21:24:02 grubba Exp $");
 
 struct svalue dest_ob_zero = { T_INT, 0 };
 
@@ -720,7 +720,7 @@ int is_lt(struct svalue *a,struct svalue *b)
 
 void describe_svalue(struct svalue *s,int indent,struct processing *p)
 {
-  char buf[40];
+  char buf[50];
 
   check_type(s->type);
   check_refs(s);
@@ -740,6 +740,10 @@ void describe_svalue(struct svalue *s,int indent,struct processing *p)
     case T_STRING:
       {
 	int i;
+	if (s->subtype) {
+	  sprintf(buf,"/* subtype:%ld */ ",(long)s->subtype);
+	  my_strcat(buf);
+	}
         my_putchar('"');
 	for(i=0; i < s->u.string->len; i++)
         {