--- stack/stack.c	2002/02/14 05:21:06	1.78
+++ stack/stack.c	2002/02/14 12:01:58	1.79
@@ -729,7 +729,7 @@
   clear(env);
   if (env->err) return;
   for(i= 0; i<HASHTBLSIZE; i++) {
-    if (env->symbols[i]!= NULL) {
+    while(env->symbols[i]!= NULL) {
       forget_sym(&(env->symbols[i]));
       env->symbols[i]= NULL;
     }