--- stack/stack.c	2002/02/06 01:51:08	1.37
+++ stack/stack.c	2002/02/06 11:15:05	1.38
@@ -307,10 +307,18 @@
     printf("#<function %p>", (funcp)(stack_head->item->content.ptr));
     break;
   case list:
-    printf("#<list %p>", (funcp)(stack_head->item->content.ptr));
+    /* A list is just a stack, so make stack_head point to it */
+    stack_head=(stackitem *)(stack_head->item->content.ptr);
+    printf("[ ");
+    while(stack_head != NULL) {
+      print_h(stack_head);
+      printf(" ");
+      stack_head=stack_head->next;
+    }
+    printf("] ");
     break;
   default:
-    printf("#<unknown %p>", (funcp)(stack_head->item->content.ptr));
+    printf("#<unknown %p>", (stack_head->item->content.ptr));
     break;
   }
 }