--- deliantra/server/server/cfperl.xs	2006/12/23 06:21:02	1.103
+++ deliantra/server/server/cfperl.xs	2006/12/23 06:41:39	1.104
@@ -1841,12 +1841,9 @@
 int flag (object *op, int flag, int value = 1)
 	PROTOTYPE: $$;$
 	CODE:
-        RETVAL = QUERY_FLAG (op, flag);
+        RETVAL = op->flag [flag];
         if (items >= 3)
-          if (value)
-            SET_FLAG (op, flag);
-          else
-            CLEAR_FLAG (op, flag);
+          op->flag [flag] = value;
         OUTPUT: RETVAL
 
 object *head (object *op)