--- stack/stack.c	2002/02/08 06:23:19	1.62
+++ stack/stack.c	2002/02/08 13:01:16	1.63
@@ -1149,6 +1149,7 @@
 extern void sx_7768696c65(environment *env) {
 
   int truth;
+  value *loop, *test;
 
   if((env->head)==NULL || env->head->next==NULL) {
     printerr("Too Few Arguments");
@@ -1156,10 +1157,17 @@
     return;
   }
 
+  loop= env->head->item;
+  loop->refcount++;
+  toss(env); if(env->err) return;
+
+  test= env->head->item;
+  test->refcount++;
+  toss(env); if(env->err) return;
+
   do {
-    swap(env); if(env->err) return;
-    dup(env); if(env->err) return;
-    eval(env); if(env->err) return;
+    push_val(&(env->head), test);
+    eval(env);
     
     if(env->head->item->type != integer) {
       printerr("Bad Argument Type");
@@ -1168,17 +1176,17 @@
     }
     
     truth= env->head->item->content.val;
-    
     toss(env); if(env->err) return;
-    swap(env); if(env->err) return;
     
     if(truth) {
-      dup(env);
+      push_val(&(env->head), loop);
       eval(env);
     } else {
       toss(env);
-      toss(env);
     }
   
   } while(truth);
+
+  free_val(test);
+  free_val(loop);
 }