diff --git a/lib/modules/Stack.pmod b/lib/modules/Stack.pmod
index aeb471a65bd4bac88873886bf35e1ebb028ee1bb..b57df1b3d42ba7c280c6cf6cec67408ec4456c09 100644
--- a/lib/modules/Stack.pmod
+++ b/lib/modules/Stack.pmod
@@ -10,6 +10,14 @@ class stack {
     arr[ptr++]=val;
   }
 
+  mixed top()
+  {
+    if (ptr) {
+      return(arr[ptr-1]);
+    }
+    error("Stack underflow\n");
+  }
+
   mixed pop(void|int val)
   {
     mixed foo;