diff --git a/src/obidms.c b/src/obidms.c
index bc13c6a..ab7c61a 100755
--- a/src/obidms.c
+++ b/src/obidms.c
@@ -696,6 +696,12 @@ int obi_clean_dms(const char* dms_path)
 //		return -1;
 //	}
 
+	if (obi_close_dms(dms, true) < 0)
+	{
+		obidebug(1, "\nError closing a DMS after cleaning");
+		return -1;
+	}
+
 	return 0;
 }