gcl.git - GNU Common Lisp

diff --git a/gcl/o/sgbc.c b/gcl/o/sgbc.c
index 2f37cad6c..772767f01 100755
--- a/gcl/o/sgbc.c
+++ b/gcl/o/sgbc.c

@@ -1554,7 +1554,7 @@ memory_protect(int on) {

if (on==0) {

sgc_mprotect(first_protectable_page,end-first_protectable_page,SGC_WRITABLE);

install_segmentation_catcher();

- return;

+ return 0;

}

INSTALL_MPROTECT_HANDLER;