Index: Zend/zend_execute.c
===================================================================
RCS file: /repository/Zend/zend_execute.c,v
retrieving revision 1.231
diff -u -r1.231 zend_execute.c
--- Zend/zend_execute.c	2000/08/31 22:24:20	1.231
+++ Zend/zend_execute.c	2000/09/06 06:45:44
@@ -960,6 +960,19 @@
 		}
 	}
 
+	{
+		zval *current;
+		ALLOC_ZVAL(current);
+		current->refcount = 2;
+		current->is_ref = 1;
+		current->type = IS_ARRAY;
+		current->value.ht = EG(active_symbol_table);
+		
+		if (zend_hash_add(EG(active_symbol_table), "CURRENT", sizeof("CURRENT"), &current, sizeof(zval *), NULL) == FAILURE) {
+			FREE_ZVAL(current);
+		}
+	}
+
 #if SUPPORT_INTERACTIVE
 	while (opline<end) {
 #else