diff --git a/WEGA/contrib/ingres/dbs/src/access/cleanrel.c b/WEGA/contrib/ingres/dbs/src/access/cleanrel.c
new file mode 100644
index 0000000..423600e
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/access/cleanrel.c
@@ -0,0 +1,17 @@
+# include	"gen.h"
+# include	"../h/dbs.h"
+# include	"../h/aux.h"
+# include	"../h/access.h"
+
+/* CLEANREL -- */
+/* If there are any buffers being used by the relation described */
+/* in the descriptor struct, flush and zap the buffer. */
+/* This will force a disk read the next time the relation */
+/* is accessed which is useful to get the most up-to-date */
+/* information from a file that is being updated by another */
+/* program. */
+cleanrel(d)
+register DESC	*d;
+{
+	return (AAam_flush_rel(d, TRUE));	/* flush and reset all pages of this rel */
+}