--- stack/stack.c	2002/03/08 16:09:30	1.93
+++ stack/stack.c	2002/03/09 09:58:31	1.94
@@ -957,7 +957,7 @@
   }
 
   if(myenv.interactive) {
-    printf("Stack version $Revision: 1.93 $\n\
+    printf("Stack version $Revision: 1.94 $\n\
 Copyright (C) 2002  Mats Alritzson and Teddy Hogeborn\n\
 Stack comes with ABSOLUTELY NO WARRANTY; for details type `warranty;'.\n\
 This is free software, and you are welcome to redistribute it\n\
@@ -2073,7 +2073,7 @@
 
   if((env->head)==NULL || env->head->next==NULL) {
     printerr("Too Few Arguments");
-    env->err=1;
+    env->err= 1;
     return;
   }
   
@@ -2091,3 +2091,29 @@
   printerr("Bad Argument Type");
   env->err=2;
 }
+
+/* "div" */
+extern void sx_646976(environment *env)
+{
+  int a, b;
+  
+  if((env->head)==NULL || env->head->next==NULL) {
+    printerr("Too Few Arguments");
+    env->err= 1;
+    return;
+  }
+
+  if(env->head->item->type==integer
+     && env->head->next->item->type==integer) {
+    a= env->head->item->content.i;
+    toss(env); if(env->err) return;
+    b= env->head->item->content.i;
+    toss(env); if(env->err) return;
+    push_int(env, (int)b/a);
+
+    return;
+  }
+
+  printerr("Bad Argument Type");
+  env->err= 2;
+}