Index: trunk/src/libcschem/libcschem.c
===================================================================
--- trunk/src/libcschem/libcschem.c	(revision 842)
+++ trunk/src/libcschem/libcschem.c	(revision 843)
@@ -52,3 +52,8 @@
 		pup_err_stack_process_str(&csch_pup, print_pup_err);
 	}
 }
+
+void csch_uninit(void)
+{
+	pup_uninit(&csch_pup);
+}
\ No newline at end of file
Index: trunk/src/libcschem/libcschem.h
===================================================================
--- trunk/src/libcschem/libcschem.h	(revision 842)
+++ trunk/src/libcschem/libcschem.h	(revision 843)
@@ -43,3 +43,5 @@
 } csch_pri_t;
 
 int csch_init(void);
+void csch_uninit(void);
+