diff --git a/SOPE/GDLContentStore/ChangeLog b/SOPE/GDLContentStore/ChangeLog
index bc33ea28d..2404379eb 100644
--- a/SOPE/GDLContentStore/ChangeLog
+++ b/SOPE/GDLContentStore/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-30  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* EOAdaptorChannel+GCS.m ([EOAdaptorChannel
+	-dropTables:tableNames]): new method that drops a list of tables.
+
 2008-06-23  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
 	* GCSFolderManager.m ([GCSFolderManager
diff --git a/SOPE/GDLContentStore/EOAdaptorChannel+GCS.h b/SOPE/GDLContentStore/EOAdaptorChannel+GCS.h
index da28e551a..4adaacc2f 100644
--- a/SOPE/GDLContentStore/EOAdaptorChannel+GCS.h
+++ b/SOPE/GDLContentStore/EOAdaptorChannel+GCS.h
@@ -33,7 +33,8 @@
 
 @interface EOAdaptorChannel(GCS)
 
-- (BOOL)tableExistsWithName:(NSString *)_tableName;
+- (BOOL) tableExistsWithName: (NSString *) _tableName;
+- (void) dropTables: (NSArray *) tableNames;
 
 @end
 
diff --git a/SOPE/GDLContentStore/EOAdaptorChannel+GCS.m b/SOPE/GDLContentStore/EOAdaptorChannel+GCS.m
index 23e156176..dca32501d 100644
--- a/SOPE/GDLContentStore/EOAdaptorChannel+GCS.m
+++ b/SOPE/GDLContentStore/EOAdaptorChannel+GCS.m
@@ -24,7 +24,8 @@
 
 @implementation EOAdaptorChannel(GCS)
 
-- (BOOL)tableExistsWithName:(NSString *)_tableName {
+- (BOOL) tableExistsWithName: (NSString *) _tableName
+{
   NSException *ex;
   NSString    *sql;
   BOOL        didOpen;
@@ -47,4 +48,18 @@
   return ex != nil ? NO : YES;
 }
 
+- (void) dropTables: (NSArray *) tableNames
+{
+  unsigned int count, max;
+  NSString *sql;
+
+  max = [tableNames count];
+  for (count = 0; count < max; count++)
+    {
+      sql = [NSString stringWithFormat: @"DROP TABLE %@",
+		      [tableNames objectAtIndex: count]];
+      [self evaluateExpressionX: sql];
+    }
+}
+
 @end /* EOAdaptorChannel(GCS) */