--- openisis/current/perl/OpenIsis.xs	2005/01/01 19:09:53	623
+++ openisis/current/perl/OpenIsis.xs	2005/01/01 22:07:36	624
@@ -239,3 +239,12 @@
 					
 		}
 	}
+
+int
+close( db )
+	int db
+	CODE:
+	RETVAL = sherr( openIsisCDClose( db ) );
+	OUTPUT:
+	RETVAL
+