diff -uw perl.orig/OpenIsis.xs perl/OpenIsis.xs
--- perl.orig/OpenIsis.xs	2003-04-08 02:20:53.000000000 +0200
+++ perl/OpenIsis.xs	2003-07-14 20:06:52.000000000 +0200
@@ -239,3 +239,12 @@
 					
 		}
 	}
+
+int
+close( db )
+	int db
+	CODE:
+	RETVAL = sherr( openIsisCDClose( db ) );
+	OUTPUT:
+	RETVAL
+